A062120 Numbers k such that k has sqrt(k) as its middle digits.
1, 2500, 3600, 62500, 14379264, 57760000, 141376000000, 245495475625, 390625000000, 943971582724, 4482669527413081, 8790937600000000, 31561776563446336, 10235319926865509025
Offset: 1
Crossrefs
Cf. A062118.
Programs
-
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} ]
Formula
a(n) = A062118(n)^2.