OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Table[10 k^2 - 90 k + 163, {k, 7, 600}], PrimeQ]
PROG
(Magma) [ a: k in [7..200] | IsPrime(a) where a is 10*k^2-90*k+163];
(PARI) select(isprime, vector(100, n, 10*n^2 + 30*n - 17)) \\ Charles R Greathouse IV, Mar 27 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Avi Friedlich, Mar 27 2015
EXTENSIONS
Corrected by Vincenzo Librandi, Mar 27 2015
STATUS
approved