A089008 Numbers k such that 18*k^2 + 1 is prime.
1, 2, 3, 7, 8, 9, 10, 11, 12, 14, 15, 22, 24, 25, 29, 31, 32, 33, 34, 35, 41, 44, 45, 51, 52, 54, 59, 62, 63, 67, 68, 73, 76, 79, 80, 85, 88, 91, 95, 99, 100, 102, 107, 108, 109, 117, 119, 120, 122, 125, 129, 131, 133, 135, 139, 141, 142, 143, 147, 150, 152, 154, 156
Offset: 1
Keywords
Links
- Zak Seidov, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[200],PrimeQ[18#^2+1]&] (* Harvey P. Dale, Apr 25 2011 *)
-
PARI
for(n=0, 1e3, if(isprime(k=(18*n^2 + 1)), print1(n", "))) \\ Altug Alkan, Oct 19 2015
Formula
a(n) = A089001(n+1)/3.
Comments