A174274 Each pair of adjacent digits of n sums to a square.

10, 13, 18, 22, 27, 31, 36, 40, 45, 54, 63, 72, 79, 81, 88, 90, 97, 100, 101, 104, 109, 131, 136, 181, 188, 222, 227, 272, 279, 310, 313, 318, 363, 400, 401, 404, 409, 454, 540, 545, 631, 636, 722, 727, 790, 797, 810, 813, 818, 881, 888, 900, 901, 904, 909, 972, 979, 1000, 1001, 1004, 1009, 1010, 1013, 1018, 1040, 1045, 1090, 1097, 1310, 1313, 1318, 1363, 1810, 1813, 1818, 1881, 1888

Offset

1,1

Links

Table of n, a(n) for n=1..77.

Mathematica

s={}; Do[id=IntegerDigits[n]; If[Union[IntegerQ/@Sqrt[Rest[id]+Most[id]]]=={True}, AppendTo[s, n]], {n, 10, 2000}]; s

Crossrefs

Cf. A028839 Sum of digits of n is a square,

Cf. A061910 (numbers n such that sum of digits of n^2 is a square).

Sequence in context: A240109 A163652 A081642 * A120155 A363079 A159839

Adjacent sequences: A174271 A174272 A174273 * A174275 A174276 A174277

Keyword

nonn,base

Author

Zak Seidov, Nov 27 2010

Status

approved