OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Decagonal Number
Eric Weisstein's World of Mathematics, Prime Number
FORMULA
MATHEMATICA
Table[Prime[n] (4 Prime[n] - 3), {n, 1, 45}]
Module[{nn=200, pn}, pn=PolygonalNumber[10, Range[nn]]; Table[pn[[p]], {p, Prime[ Range[PrimePi[nn]]]}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 27 2020 *)
PROG
(PARI) lista(nn) = forprime(p=2, nn, print1(p*(4*p-3), ", ")); \\ Altug Alkan, Jan 12 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ilya Gutkovskiy, Jan 12 2016
STATUS
approved