|
|
A066928
|
|
Numbers k such that floor(k*log(k)) is prime.
|
|
1
|
|
|
3, 4, 7, 9, 10, 12, 20, 29, 65, 67, 72, 73, 86, 93, 97, 98, 107, 117, 140, 143, 146, 147, 148, 150, 151, 153, 156, 182, 183, 186, 192, 194, 205, 206, 207, 211, 227, 228, 235, 236, 241, 248, 249, 253, 259, 270, 273, 279, 283, 289, 292, 298, 325, 330, 347, 352
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harry J. Smith)
|
|
MATHEMATICA
|
Select[Range[400], PrimeQ[Floor[# * Log[#]]] &] (* Amiram Eldar, May 23 2022 *)
|
|
PROG
|
(PARI) { n=0; for (m=1, 10^10, if (isprime(floor(m*log(m))), write("b066928.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Apr 07 2010
|
|
CROSSREFS
|
Sequence in context: A344416 A330178 A059010 * A032726 A029739 A005098
Adjacent sequences: A066925 A066926 A066927 * A066929 A066930 A066931
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Benoit Cloitre, Jan 23 2002
|
|
STATUS
|
approved
|
|
|
|