A117994 Heptagonal numbers with only even digits.

0, 286, 6426, 6682, 22420, 26884, 28462, 60606, 268468, 280060, 446688, 448804, 604422, 664866, 848848, 2226424, 2240602, 2828644, 2844622, 4268662, 6820282, 8424486, 22062646, 24066868, 26482680, 28404046, 28606648, 44662482, 46822468, 48042064, 60484024

Offset

1,2

Links

Table of n, a(n) for n=1..31.

Mathematica

Select[Table[n*(5n-3)/2, {n, 0, 20000}], And@@EvenQ[IntegerDigits[#]]&] (* Harvey P. Dale, Jan 23 2012 *)
Select[PolygonalNumber[7, Range[0, 10000]], AllTrue[IntegerDigits[#], EvenQ]&] (* Harvey P. Dale, Jan 14 2024 *)

Crossrefs

Cf. A000566, A117993.

Sequence in context: A238251 A027798 A072817 * A221431 A306144 A130433

Adjacent sequences: A117991 A117992 A117993 * A117995 A117996 A117997

Keyword

base,nonn

Author

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

Extensions

Corrected by Harvey P. Dale, Jan 23 2012

a(1)=0 inserted by Alois P. Heinz, Feb 28 2015

Status

approved