A136085 Son primes of order 8.
3, 5, 29, 59, 71, 83, 101, 131, 149, 173, 239, 251, 281, 311, 401, 443, 449, 461, 491, 509, 563, 569, 653, 701, 719, 743, 761, 929, 953, 1109, 1151, 1193, 1223, 1259, 1289, 1301, 1373, 1451, 1511, 1553, 1571, 1583, 1613, 1619, 1811, 1913, 1931, 1949, 2039
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
n = 8; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, (Prime[k] - 2n)/(2n + 1)]], {k, 1, 1000}]; a q=16;lst={};Do[p=Prime[n];If[PrimeQ[(q+1)*p+q],AppendTo[lst,p]],{n,6!}];lst (* Vladimir Joseph Stephan Orlovsky, Mar 10 2009 *)
Comments