OFFSET
1,1
COMMENTS
Added in order to clarify A154616.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[Floor[(4 n^2 - 8 n - 9)/3], {n, 3, 100}], PrimeQ] (* Vincenzo Librandi, Mar 21 2013 *)
PROG
(Magma) [a: n in [3..100] | IsPrime(a) where a is Floor((4*n^2-8*n-9)/3)]; // Vincenzo Librandi, Mar 21 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Jun 25 2010
STATUS
approved