%I #2 Mar 30 2012 17:26:35
%S 0,1,2,3,4,5,6,9,10,11,12,15,18,19,20,21,25,30,32,35,38,39,40,45,46,
%T 47,48,49,50,51,52,55,56,60,65,71,79,85,90,95,100,101,102,103,104,105,
%U 106,110,111,112,115,119,120,131,145,146,147,149,150,152,153,155,156,162
%N Numbers n with property that sums of neighbor digits of n^2 are all less than 10.
%e Sum of neighbor digits, 6 and 9, of 13^2 = 169 is 15, hence 13 is absent in the sequence.
%t s={0,1,4,9};Do[id=IntegerDigits[n^2];rp=Rest[id]+Most[id];
%t If[Max[rp]<10,AppendTo[s,n]],{n,4,300}];s
%Y Cf. A175584 Sums of neighbor digits of prime p are all less than 10.
%K base,nonn
%O 0,3
%A _Zak Seidov_, Jul 16 2010