%I #24 Aug 09 2021 04:58:22
%S 23,24,71,72,73,74,75,76,77,224,225,226,227,228,229,230,231,232,233,
%T 234,235,236,237,238,239,240,241,242,243,244,708,709,710,711,712,713,
%U 714,715,716,717,718,719,720,721,722,723,724,725,726,727,728,729,730
%N Numbers whose square has initial digit '5'.
%C A000030(A000290(a(n))) = 5. [_Reinhard Zumkeller_, Mar 07 2010]
%H Seiichi Manyama, <a href="/A045859/b045859.txt">Table of n, a(n) for n = 1..10000</a>
%t Rest[Table[If[First[IntegerDigits[n^2]] == 5, n, 0], {n, 1, 2500}]// Union] (* _José María Grau Ribas_, Feb 15 2010 *)
%o (PARI) isok(n) = digits(n^2)[1] == 5; \\ _Michel Marcus_, Dec 13 2017
%Y Cf. A045788.
%K nonn,base
%O 1,1
%A _Jeff Burch_