A174397 Sum of any three adjacent digits of n^2 is a square.
10, 11, 12, 13, 14, 15, 18, 20, 21, 22, 23, 30, 31, 90, 100, 200, 263, 265, 300, 900, 985, 1000, 1002, 2000, 2001, 3000, 5265, 9000, 10000, 10002, 10020, 20000, 20001, 20010, 30000, 90000, 100000, 100002, 100020, 100200, 200000, 200001, 200010, 200100, 262987, 300000, 900000, 1000000, 1000002, 1000020, 1000200, 1002000, 2000000, 2000001, 2000010, 2000100, 2001000, 2001002, 3000000
Offset: 1
Examples
262987^2=69162162169 and 6+9+1=16, 9+1+6=16, 1+6+2=9, 6+2+1=9, 2+1+6=9, 1+6+2=9, 6+2+1=9, 2+1+6=9, 1+6+9=16 are all squares.
Crossrefs
Cf.A061910 Numbers n such that sum of digits of n^2 is a square.
Programs
-
Mathematica
s={};Do[id=IntegerDigits[n^2]; If[Union[IntegerQ/@(Sqrt[Total/@Partition[id,3,1]])]=={True},Print[n];AppendTo[s,n]],{n,10,3*10^6}] Select[Range[10,3*10^6],AllTrue[Total/@Partition[IntegerDigits[#^2],3,1], IntegerQ[ Sqrt[#]]&]&] (* Harvey P. Dale, Jan 21 2019 *)