|
|
A173830
|
|
Primes of the form p - floor(sqrt(p)), p prime.
|
|
1
|
|
|
2, 3, 5, 13, 19, 31, 37, 41, 59, 71, 97, 103, 137, 139, 151, 197, 241, 313, 331, 389, 401, 419, 487, 499, 563, 569, 577, 593, 683, 701, 769, 811, 877, 881, 907, 911, 1019, 1031, 1129, 1153, 1283, 1291, 1409, 1433, 1451, 1567, 1579, 1597, 1627, 1741, 1747, 1759
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_]:=n-Floor[Sqrt[n]]; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, f[p]]], {n, 7!}]; lst
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|