|
|
A225625
|
|
Primes of the form floor(log(p)) + p^2, where p is prime.
|
|
2
|
|
|
4493, 5333, 9413, 10613, 18773, 185767, 323767, 502687, 737887, 863047, 885487, 942847, 982087, 1079527, 488100659, 511709651, 514337051, 515153819, 515698691, 517062131, 526381259, 527207531, 527299379, 533009579, 536339291, 536987939, 538100819, 546110171
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
Floor(log(67)) + 67^2 = 4493.
Floor(log(22093)) + 22093^2 = 488100659.
|
|
MATHEMATICA
|
p = Prime[Range[3000]]; Select[p^2 + Floor[Log[p]], PrimeQ] (* T. D. Noe, May 13 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|