|
|
A000430
|
|
Primes and squares of primes.
|
|
46
|
|
|
2, 3, 4, 5, 7, 9, 11, 13, 17, 19, 23, 25, 29, 31, 37, 41, 43, 47, 49, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 121, 127, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193, 197, 199, 211, 223
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Also numbers n such that the product of proper divisors is < n.
Numbers q > 1 such that d(q) < 4. Numbers k such that the number of ways of writing k = m + t is equal to the number of ways of writing k = r*s, where m|t and r|s. - Juri-Stepan Gerasimov, Oct 14 2017
Called multiplicatively deficient numbers by Chau (2004). - Amiram Eldar, Jun 29 2022
|
|
REFERENCES
|
F. Smarandache, Definitions solved and unsolved problems, conjectures and theorems in number theory and geometry, edited by M. Perez, Xiquan Publishing House 2000
F. Smarandache, Sequences of Numbers Involved in Unsolved Problems, Hexis, Phoenix, 2006.
|
|
LINKS
|
|
|
FORMULA
|
The number of terms not exceeding x is N(x) ~ (x + 2*sqrt(x))/log(x) (Chau, 2004). - Amiram Eldar, Jun 29 2022
|
|
MATHEMATICA
|
nn = 223; t = Union[Prime[Range[PrimePi[nn]]], Prime[Range[PrimePi[Sqrt[nn]]]]^2] (* T. D. Noe, Apr 11 2011 *)
Module[{upto=250, prs}, prs=Prime[Range[PrimePi[upto]]]; Select[Join[ prs, prs^2], #<=upto&]]//Sort (* Harvey P. Dale, Oct 08 2016 *)
|
|
PROG
|
(Haskell)
a000430 n = a000430_list !! (n-1)
a000430_list = m a000040_list a001248_list where
m (x:xs) (y:ys) | x < y = x : m xs (y:ys)
| x > y = y : m (x:xs) ys
|
|
CROSSREFS
|
Cf. A007422, A010051, A010055, A032741, A046951, A050216, A056595, A058080, A064911, A084110, A084114, A293575.
|
|
KEYWORD
|
nonn,easy,nice
|
|
AUTHOR
|
R. Muller
|
|
STATUS
|
approved
|
|
|
|