|
|
A180451
|
|
Primes of the form floor(2*n^sqrt(2) - n).
|
|
1
|
|
|
3, 19, 29, 41, 101, 109, 127, 281, 293, 353, 509, 523, 743, 821, 853, 919, 1019, 1193, 1229, 1283, 1301, 2503, 2683, 2797, 2843, 3221, 3637, 3863, 4093, 4327, 4889, 4943, 5897, 6451, 6481, 6659, 6689, 6719, 6779, 6869, 6899, 7541, 7603, 7759, 7853, 8423
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|