OFFSET
1,1
REFERENCES
David Wells, The Penguin Dictionary of Curious and Interesting Numbers, Revised Edition, Penguin Books, London, England, 1997, entry 496, page 142.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= n -> n*(n+1)/2-2:
select(isprime, map(f, [seq(ithprime(i), i=1..200)])); # Robert Israel, Sep 20 2022
MATHEMATICA
Select[(#*(# + 1)/2 - 2) & /@ Prime[Range[165]], PrimeQ] (* Amiram Eldar, Sep 18 2022 *)
PROG
(PARI) isok(p) = my(q); isprime(p) && ispolygonal(p+2, 3, &q) && isprime(q); \\ Michel Marcus, Sep 19 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Bernard Schott, Sep 18 2022
EXTENSIONS
More terms from David A. Corneth, Sep 18 2022
STATUS
approved