login
A117404
Triangular numbers for which the sum of the digits is a square.
2
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
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
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 26 2006
EXTENSIONS
Corrected by Michel Marcus, Feb 26 2014
STATUS
approved