A175585 - OEIS

A175585

Numbers n with property that sums of neighbor digits of n^2 are all less than 10.

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, 47, 48, 49, 50, 51, 52, 55, 56, 60, 65, 71, 79, 85, 90, 95, 100, 101, 102, 103, 104, 105, 106, 110, 111, 112, 115, 119, 120, 131, 145, 146, 147, 149, 150, 152, 153, 155, 156, 162

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

Table of n, a(n) for n=0..63.

EXAMPLE

Sum of neighbor digits, 6 and 9, of 13^2 = 169 is 15, hence 13 is absent in the sequence.

MATHEMATICA

s={0, 1, 4, 9}; Do[id=IntegerDigits[n^2]; rp=Rest[id]+Most[id];

If[Max[rp]<10, AppendTo[s, n]], {n, 4, 300}]; s

CROSSREFS

Cf. A175584 Sums of neighbor digits of prime p are all less than 10.