login
Decagonal numbers divisible by 10.
1

%I #9 Mar 22 2021 05:47:37

%S 0,10,370,540,1540,1870,3510,4000,6280,6930,9850,10660,14220,15190,

%T 19390,20520,25360,26650,32130,33580,39700,41310,48070,49840,57240,

%U 59170,67210,69300,77980,80230,89550,91960,101920,104490,115090,117820

%N Decagonal numbers divisible by 10.

%C Intersection of A008592 and A001107. - _Michel Marcus_, Feb 27 2014

%H Amiram Eldar, <a href="/A117797/b117797.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Table[PolygonalNumber[10, n], {n, 0, 175}], Divisible[#, 10] &] (* _Amiram Eldar_, Mar 22 2021 *)

%o (PARI) isok(n) = ispolygonal(n, 10) && !(n % 10); \\ _Michel Marcus_, Feb 27 2014

%Y Cf. A008592, A001107.

%K easy,nonn

%O 1,2

%A Luc Stevens (lms022(AT)yahoo.com), Apr 29 2006