A132243 Twin primes congruent to {1, 29} mod 30.
29, 31, 59, 61, 149, 151, 179, 181, 239, 241, 269, 271, 419, 421, 569, 571, 599, 601, 659, 661, 809, 811, 1019, 1021, 1049, 1051, 1229, 1231, 1289, 1291, 1319, 1321, 1619, 1621, 1949, 1951, 2129, 2131, 2309, 2311, 2339, 2341, 2549, 2551, 2729, 2731, 2789
Offset: 1
Links
- Roger L. Bagula, Table of n, a(n) for n = 1..144
- C. K. Caldwell, The Prime Pages.
- C. K. Caldwell, Twin Primes.
- Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos.
Programs
-
Mathematica
a[0] = 9; a[n_] := a[n] = a[n - 1] + 10; Flatten[Table[If[PrimeQ[a[n]] && PrimeQ[a[n] + 2], {a[n],a[n] + 2}, {}], {n, 0, 300}]] (* Roger L. Bagula, May 04 2008 *) Flatten[Select[#+{-1,1}&/@(5*Range[0,600,2]),AllTrue[#,PrimeQ]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 21 2020 *)
Extensions
More terms from Roger L. Bagula, May 04 2008
Comments