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

Author

Zak Seidov, Nov 27 2010

Keywords

• nonn
• base

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).

Programs

Mathematica

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