login
A155028
Primes p such that p^3 + 2*p^2 + p + 1 is also prime.
1
2, 5, 7, 13, 23, 47, 79, 89, 103, 109, 137, 139, 193, 223, 229, 257, 277, 293, 317, 347, 379, 389, 443, 457, 499, 593, 607, 653, 677, 709, 733, 823, 853, 883, 907, 953, 1013, 1033, 1087, 1103, 1117, 1283, 1297, 1307, 1327, 1367, 1409, 1489, 1523, 1549, 1597
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime[Range[1600]], PrimeQ[(#^3 + 2*#^2 + # + 1)]&] (* Vincenzo Librandi, Oct 30 2012 *)
PROG
(Magma) [p: p in PrimesUpTo(1600)| IsPrime(p^3 + 2*p^2 + p + 1)]; // Vincenzo Librandi, Oct 30 2012
CROSSREFS
Cf. A154686.
Sequence in context: A094712 A095281 A106889 * A119839 A360105 A107057
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 19 2009
STATUS
approved