A088240 Values associated with sequence A078511.

2, 12, 12, 16, 16, 18, 20, 24, 24, 24, 24, 28, 24, 24, 28, 32, 36, 36, 32, 32, 40, 36, 32, 32, 48, 48, 36, 36, 32, 48, 36, 48, 48, 32, 48, 30, 36, 48, 48, 40, 48, 36, 36, 48, 48, 40, 60, 40, 48, 48, 64, 40, 48, 48, 48, 64, 40, 48, 48, 36, 64, 48, 64, 60, 48, 48, 64, 60, 36, 48

Offset

1,1

Links

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

Formula

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

Mathematica

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

Prog

(PARI) isA078511(n) = {my(f = factor(n)); sum(i=1, #f~, f[i, 1]*f[i, 2]) == numdiv(n); }
lista(nn) = for (n=1, nn, if (isA078511(n), print1(numdiv(n), ", "))); \\ Michel Marcus, Feb 11 2015

Crossrefs

Cf. A000005, A001414, A078511.

Sequence in context: A181060 A171446 A068515 * A168457 A045895 A251421

Adjacent sequences: A088237 A088238 A088239 * A088241 A088242 A088243

Keyword

nonn

Author

Lekraj Beedassy, Nov 03 2003

Extensions

More terms from Ray Chandler, Nov 05 2003

Status

approved