OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Table[Floor[2n^Sqrt[2] -n], {n, 1000}], PrimeQ] (* Harvey P. Dale, Jun 23 2013 *)
PROG
(PARI) for(n=1, 1e4, if(ispseudoprime(t=floor(2*n^sqrt(2)-n)), print1(t", "))); v \\ Charles R Greathouse IV, Feb 18 2011
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
William A. Tedeschi, Sep 07 2010
EXTENSIONS
Sequence renamed by R. J. Mathar, Sep 09 2010
STATUS
approved