OFFSET
1,1
COMMENTS
Intersection of A000040 with the sequence 1, 3, 5, 7, 10, 13, 16, 19, 22, 25, 28, 32, 35, ... defined by the floor function.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MAPLE
select(isprime, [seq(floor((n^sqrt(2)+n)/sqrt(2)), n=1..350)]); # Muniru A Asiru, Sep 29 2018
MATHEMATICA
Select[With[{b = Sqrt[2]}, Table[Floor[(n^b + n)/b], {n, 500}]], PrimeQ] (* G. C. Greubel, Sep 29 2018 *)
PROG
(PARI) for(n=1, 148438, if(ispseudoprime(t=floor((n^sqrt(2)+n)/sqrt(2))), print1(t", "))); v \\ Charles R Greathouse IV, Feb 18 2011
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
William A. Tedeschi, Sep 07 2010
EXTENSIONS
Formula replaced by a comment - R. J. Mathar, Sep 09 2010
STATUS
approved