OFFSET
1,2
COMMENTS
The sequence also includes 196746419, 2209316467, 24499118645, 268950072605, 2928264676792, 31663398162514, 340383084842938, 3640820101879826. - Daniel Suteu, Oct 01 2020
EXAMPLE
1/1 + 1/2 + 1/3 + ... + 1/1478366 = 14.78366... .
MATHEMATICA
s=0; Do[s=s+(1/n); t=IntegerLength[n]; m=IntegerLength[Floor[s]]; k = Floor[s (10^(t-m))]; If[k==n, Print[n]], {n, 1, 10^11}]
PROG
(PARI) lista(nn) = {my(s=0.); for (n=1, nn, s += 1./n; my(d = digits(floor(10^20*s))); if (fromdigits(vector(#Str(n), j, d[j])) == n, print1(n, ", ")); ); } \\ Michel Marcus, Sep 30 2020
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Metin Sariyar, Sep 29 2020
EXTENSIONS
a(9) from Jinyuan Wang, Sep 30 2020
a(10)-a(12) from Chai Wah Wu, Oct 12 2020
a(13) from Chai Wah Wu, Oct 14 2020
STATUS
approved