OFFSET
1,1
EXAMPLE
MATHEMATICA
A346494[n_] := PolygonalNumber[7, Prime[n]]; Table[A346494[n], {n, 1, 41}] (* Robert P. P. McKone, Aug 22 2021 *)
PROG
(Sage)
A = [int(p*(5*p-3)/2) for p in range(0, 10^3) if p in Primes()]
(Python)
from sympy import primerange
print([p*(5*p-3)//2 for p in primerange(1, 180)]) # Michael S. Branicky, Aug 22 2021
(PARI) a(n) = my(p=prime(n)); p*(5*p-3)/2; \\ Michel Marcus, Sep 16 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Dumitru Damian, Aug 22 2021
STATUS
approved