OFFSET
1,2
FORMULA
a(n) = A062118(n)^2.
MATHEMATICA
Do[ If[ StringPosition[ ToString[n^2], ToString[n]] [[1, 1]] == (Ceiling[ Log[10, n^2] ] - Ceiling[ Log[10, n] ])/2 + 1, Print[n^2] ], {n, 1, 10^9} ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Brian Wallace (wallacebrianedward(AT)yahoo.co.uk), Jun 28 2001
STATUS
approved