OFFSET
1,1
PROG
(PARI) s=0; for(k=1, 5000, r=sqrtint(k)/10; while(r>=1, r=r/10); s+=r; if(denominator(s)==1, print1(k, ", "))) (Klasen)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Benoit Cloitre, Aug 30 2003
EXTENSIONS
Corrected and extended by Lambert Klasen (lambert.klasen(AT)gmx.de), Jan 19 2005
STATUS
approved