[go: up one dir, main page]

login
A158021
Primes such that p, 10*p-1 and (p-1)/2 are all prime.
0
11, 23, 83, 107, 167, 179, 227, 347, 479, 587, 839, 863, 983, 1283, 1367, 1439, 1487, 1619, 1823, 1907, 2027, 2039, 2447, 2879, 2963, 2999, 3119, 3203, 3623, 3863, 4127, 4139, 4259, 4283, 4787, 5099, 5483, 5879, 6719, 6779, 6983, 7247, 7703, 7727, 7823
OFFSET
1,1
MATHEMATICA
Flatten[Table[If[PrimeQ[n] && PrimeQ[10*n - 1] && PrimeQ[( n - 1)/2], n, {}], {n, 1, 10000}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved