deleted 255 characters in body

edited Nov 15, 2017 at 17:42

05AB1E, 1514 bytes

θ¹¨S3X‚7∍*Oθ¹¨3X‚7∍*O(T%Q

Here is a version that handles the absence ofNeeds leading 0s as well (21 bytes):

¾7×ìR8£ćsS3X‚7∍*O(T%Q

Try it online!, takes list of digits.

05AB1E, 15 bytes

θ¹¨S3X‚7∍*O(T%Q

Here is a version that handles the absence of leading 0s as well (21 bytes):

¾7×ìR8£ćsS3X‚7∍*O(T%Q

θ¹¨3X‚7∍*O(T%Q

Needs leading 0s, takes list of digits.

added 278 characters in body

edited Nov 15, 2017 at 16:38

θ¹¨S3X‚7∍*O(T%Q

Here is a version that handles the absence of leading 0s as well (21 bytes):

¾7×ìR8£ćsS3X‚7∍*O(T%Q

θ¹¨S3X‚7∍*O(T%Q

θ¹¨S3X‚7∍*O(T%Q

Here is a version that handles the absence of leading 0s as well (21 bytes):

¾7×ìR8£ćsS3X‚7∍*O(T%Q

answered Nov 15, 2017 at 15:40

θ¹¨S3X‚7∍*O(T%Q