A119548 10-gonal numbers which are divisible by the sum of their digits.

1, 10, 27, 126, 370, 540, 1242, 1387, 1540, 1701, 2232, 3510, 4000, 5076, 5662, 5967, 6930, 7965, 9072, 10251, 10660, 11502, 14220, 15687, 17226, 20520, 24102, 25360, 26001, 27972, 29326, 30015, 32130, 32851, 38907, 41310, 45475, 46332, 48070, 48951, 51642

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Example

5662 is in the sequence because it is a 10-gonal number and it is divisible by the sum of its digits, 5+6+6+2 = 19.

Mathematica

Select[PolygonalNumber[10, Range[200]], Divisible[#, Total[ IntegerDigits[ #]]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 06 2018 *)

Prog

(PARI) isok(m) = ispolygonal(m, 10) && !(m % sumdigits(m)); \\ Michel Marcus, Mar 24 2021

Crossrefs

Intersection of A001107 and A005349.

Sequence in context: A008468 A267217 A179546 * A219629 A262316 A362737

Adjacent sequences: A119545 A119546 A119547 * A119549 A119550 A119551

Keyword

base,nonn

Author

Luc Stevens (lms022(AT)yahoo.com), May 28 2006

Extensions

Corrected and extended by Harvey P. Dale, May 06 2018

Status

approved