A141280 Primes p such that p-6^3, p-6^2, p-6, p, p+6, p+6^2 and p+6^3 are primes.
233, 353, 977, 1663, 2693, 4457, 5443, 11933, 20107, 23333, 23893, 41263, 108923, 110813, 294347, 554633, 730783, 748603, 851387, 928643, 1005013, 1008193, 1020043, 1150873, 1194763, 1326313, 1427963, 1477103, 2161337, 2212003
Offset: 1
Keywords
Links
- Rick L. Shepherd, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
p6Q[n_]:=With[{c=6^Range[3]},AllTrue[Join[n+c,n-c],PrimeQ]]; Select[ Prime[ Range[ 50,200000]],p6Q] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jun 06 2015 *)
Comments