|
%I #14 Jan 14 2024 16:04:05
%S 0,286,6426,6682,22420,26884,28462,60606,268468,280060,446688,448804,
%T 604422,664866,848848,2226424,2240602,2828644,2844622,4268662,6820282,
%U 8424486,22062646,24066868,26482680,28404046,28606648,44662482,46822468,48042064,60484024
%N Heptagonal numbers with only even digits.
%t Select[Table[n*(5n-3)/2, {n,0,20000}], And@@EvenQ[IntegerDigits[#]]&] (* _Harvey P. Dale_, Jan 23 2012 *)
%t Select[PolygonalNumber[7,Range[0,10000]],AllTrue[IntegerDigits[#],EvenQ]&] (* _Harvey P. Dale_, Jan 14 2024 *)
%Y Cf. A000566, A117993.
%K base,nonn
%O 1,2
%A Luc Stevens (lms022(AT)yahoo.com), May 03 2006
%E Corrected by _Harvey P. Dale_, Jan 23 2012
%E a(1)=0 inserted by _Alois P. Heinz_, Feb 28 2015
|
