[go: up one dir, main page]

login
A154944
Primes p such that (p-1)*p*(p+1)-p+2 and (p-1)*p*(p+1)+p-2 are primes.
0
19, 37, 67, 151, 367, 859, 1471, 2791, 2971, 3061, 4357, 4447, 4507, 6367, 7159, 7237, 7591, 8311, 8647, 11617, 12211, 12601, 13249, 14947, 15271, 15661, 16699, 18097, 19777, 20149, 20347, 20947, 21019, 22741, 23311, 23857, 24019, 25867, 26701
OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[(p-1)*p*(p+1)-p+2]&&PrimeQ[(p-1)*p*(p+1)+p-2], AppendTo[lst, p]], {n, 8!}]; lst
KEYWORD
nonn
AUTHOR
STATUS
approved