A220081 Primes of the form 15*k^2 - 15*k + 17.
17, 47, 107, 197, 317, 467, 647, 857, 1097, 1367, 1667, 1997, 2357, 3167, 3617, 5147, 5717, 6317, 6947, 7607, 8297, 9767, 12197, 13967, 14897, 18917, 19997, 21107, 22247, 23417, 25847, 27107, 29717, 33857, 36767, 41357, 51347, 53117, 54917, 56747, 60497
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- Eric Weisstein's World of Mathematics, Prime-Generating Polynomial
Programs
-
Magma
[a: n in [1..100] | IsPrime(a) where a is 15*n^2 - 15*n + 17 ];
-
Mathematica
Select[Table[15 n^2 - 15 n + 17, {n, 1, 100}], PrimeQ]
Comments