A139527 Numbers n such that numbers 24n+5 are primes.
0, 1, 2, 4, 6, 7, 8, 11, 12, 13, 16, 19, 21, 23, 27, 28, 29, 32, 33, 34, 39, 42, 44, 46, 49, 51, 53, 54, 57, 62, 67, 68, 71, 72, 78, 79, 81, 82, 83, 86, 89, 92, 93, 96, 97, 98, 99, 103, 106, 109, 112, 114, 116, 118, 119, 121, 123, 134, 141, 142, 144, 147, 148, 149, 153, 154
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
a = {}; Do[If[PrimeQ[24 n + 5], AppendTo[a, n]], {n, 0, 200}]; a Select[Table[(Prime[n]-5)/24,{n,800}],IntegerQ] (* Harvey P. Dale, Feb 25 2016 *)
Comments