|
|
A057809
|
|
Numbers n such that pi(n) divides n.
|
|
29
|
|
|
2, 4, 6, 8, 27, 30, 33, 96, 100, 120, 330, 335, 340, 350, 355, 360, 1008, 1080, 1092, 1116, 1122, 1128, 1134, 3059, 3066, 3073, 3080, 3087, 3094, 8408, 8424, 8440, 8456, 8464, 8472, 23526, 23535, 24300, 64540, 64580, 64610, 64620, 64650, 64690, 64700
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Each cluster of entries is approximately a power of e from the previous cluster.
|
|
LINKS
|
|
|
EXAMPLE
|
120 is a member as there are exactly 30 primes less than 120 and 30 * 4 = 120.
|
|
MAPLE
|
select(t -> t mod numtheory:-pi(t) = 0, [$2..10^5]); # Robert Israel, Jul 03 2016
|
|
MATHEMATICA
|
Select[ Range[2, 10^5], IntegerQ[ # / PrimePi[ # ]] & ]
Select[Range[1000], Divisible[#, PrimePi[#]] &] (* Requires version 6.0+. Alonso del Arte, May 24 2015 *)
|
|
PROG
|
(Magma) [n: n in [2..10^5] | n mod #PrimesUpTo(n) eq 0]; // Vincenzo Librandi, Jul 04 2016
|
|
CROSSREFS
|
Apart from initial term same as A058011.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|