A117404 Triangular numbers for which the sum of the digits is a square.

0, 1, 10, 36, 45, 153, 171, 351, 630, 1035, 1431, 2016, 3240, 3321, 4005, 8001, 10440, 13041, 13203, 16110, 21321, 23220, 25200, 67896, 89676, 101025, 105111, 114003, 186966, 187578, 198765, 222111, 239778, 279378, 292995, 299925, 320400, 321201

Offset

1,3

Links

Harvey P. Dale, Table of n, a(n) for n = 1..10000

Example

45 is in the sequence because (1) it is a triangular number and (2) the sum of its digits 4+5=9 is a square.

Mathematica

Select[Accumulate[Range[0, 1000]], IntegerQ[Sqrt[Total[IntegerDigits[ #]]]]&] (* Harvey P. Dale, Dec 26 2014 *)

Prog

(PARI) isok(n) = ispolygonal(n, 3) && issquare(sumdigits(n)); \\ Michel Marcus, Feb 26 2014

Crossrefs

Cf. A000217.

Sequence in context: A176575 A073613 A346386 * A359959 A309783 A072517

Adjacent sequences: A117401 A117402 A117403 * A117405 A117406 A117407

Keyword

base,nonn

Author

Luc Stevens (lms022(AT)yahoo.com), Apr 26 2006

Extensions

Corrected by Michel Marcus, Feb 26 2014

Status

approved