login
A154821
Primes p such that p+p^2+p^3-+2 are also prime.
4
3, 7, 13, 139, 283, 1063, 1759, 1999, 2719, 2917, 3109, 3583, 4057, 4297, 4723, 5059, 5623, 5749, 6079, 6823, 8707, 9199, 9949, 12697, 15193, 15319, 15607, 16249, 16267, 16993, 17827, 18679, 18793, 20359, 20887, 21727, 22147, 23677, 24019, 24169
OFFSET
1,1
COMMENTS
3+9+27=39-+2=primes,...
LINKS
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p+p^2+p^3-2]&&PrimeQ[p+p^2+p^3+2], AppendTo[lst, p]], {n, 8!}]; lst
Select[Prime[Range[3000]], AllTrue[#+#^2+#^3+{2, -2}, PrimeQ]&] (* Harvey P. Dale, Nov 30 2022 *)
CROSSREFS
Sequence in context: A082718 A221211 A322301 * A353008 A084741 A135623
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition clarified by Harvey P. Dale, Nov 30 2022
STATUS
approved