OFFSET
1,2
COMMENTS
The terms satisfying the definition become increasingly rare as the number of their digits increases. There are only 214 such terms up to 1 million, the last of which is 990000. [From Harvey P. Dale, Apr 10 2012]
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..200
EXAMPLE
a(84)=4864 because 4 is divisible by 1^2, 64 by 2^2, 864 by 3^2, 4864 by 4^2.
MATHEMATICA
idkQ[n_]:=Module[{idn=IntegerDigits[n]}, And@@Table[Divisible[ FromDigits[ Take[idn, -i]], i^2], {i, Length[idn]}]]; Select[Range[1700], idkQ] (* Harvey P. Dale, Apr 10 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Sudipta Das (juitech(AT)vsnl.net), Feb 03 2003
STATUS
approved