|
|
A062120
|
|
Numbers k such that k has sqrt(k) as its middle digits.
|
|
1
|
|
|
1, 2500, 3600, 62500, 14379264, 57760000, 141376000000, 245495475625, 390625000000, 943971582724, 4482669527413081, 8790937600000000, 31561776563446336, 10235319926865509025
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
|