OFFSET
1,2
COMMENTS
The sequence is infinite because all numbers of the form 10^(10^n-6) + 6*(10^(10^n-6)-1)/9, (n>0) are terms.
All terms are zeroless since 1/0 is undefined.
If n gives a sum < 1 then that sum is taken as 0.xyz.. but n does not start with 0, so not a term.
LINKS
Kevin Ryde, Table of n, a(n) for n = 1..382
Michael S. Branicky, Python program
Kevin Ryde, PARI/GP Code
EXAMPLE
28428571 is a term because 1/2 + 1/8 + 1/4 + 1/2 + 1/8 + 1/5 + 1/7 + 1/1 = 2.8428571...
825 is not a term since 1/8 + 1/2 + 1/5 = 0.825.
MATHEMATICA
Do[If[FreeQ[IntegerDigits[n], 0]&&Floor[Total[1/IntegerDigits[n]]*10^(IntegerLength[n]-IntegerLength[Floor[Total[1/IntegerDigits[n]]]])]==n&&Floor[Total[1/IntegerDigits[n]]]>0, Print[n]], {n, 1, 216666}]
PROG
(Python) See links.
(PARI) See links.
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Metin Sariyar, Jun 01 2022
EXTENSIONS
a(12)-a(24) from Michael S. Branicky, Jun 03 2022
STATUS
approved