login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A078511 Numbers k such that sopfr(k)=tau(k). 6
2, 60, 72, 168, 270, 450, 560, 990, 1056, 1188, 1470, 2496, 3200, 3402, 3520, 3672, 4788, 5700, 8320, 9856, 9936, 10164, 10395, 11000, 11160, 12180, 12740, 13056, 13720, 14616, 16524, 17400, 17940, 18522, 19380, 20000, 20475, 21252, 21528 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

It appears Sum_{n=1..m} a(n) =~ c*sqrt(m)*(log(m) - log(log(m))^2), at c ~ 0.038, asymptotically, after examining m up to 10,000,000, with data intervals of 10,000. - Richard R. Forberg, Feb 10 2015

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000

FORMULA

A001414(a(n)) = A000005(a(n)).

MATHEMATICA

s = {}; Do[If[DivisorSigma[0, n] == Total[Times @@@ FactorInteger[n]], AppendTo[s, n]], {n, 2, 22000}]; s (* Amiram Eldar, Jun 22 2019 *)

PROG

(PARI) isok(n) = {my(f = factor(n)); sum(i=1, #f~, f[i, 1]*f[i, 2]) == numdiv(n); } \\ Michel Marcus, Feb 11 2015

CROSSREFS

Cf. A000005, A001414.

Sequence in context: A113549 A268432 A117482 * A087004 A328859 A141055

Adjacent sequences:  A078508 A078509 A078510 * A078512 A078513 A078514

KEYWORD

nonn

AUTHOR

Benoit Cloitre, Jan 11 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 28 08:44 EDT 2021. Contains 346321 sequences. (Running on oeis4.)