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

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.

Sequence in context: A236562 A157189 A136250 * A178905 A349955 A168009

Adjacent sequences: A175582 A175583 A175584 * A175586 A175587 A175588

Keyword

base,nonn

Author

Zak Seidov, Jul 16 2010

Status

approved