login
A174274
Each pair of adjacent digits of n sums to a square.
0
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
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
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Nov 27 2010
STATUS
approved