A061340 a(n) = n*omega(n)^n where omega(n) is the number of distinct prime divisors of n.

0, 2, 3, 4, 5, 384, 7, 8, 9, 10240, 11, 49152, 13, 229376, 491520, 16, 17, 4718592, 19, 20971520, 44040192, 92274688, 23, 402653184, 25, 1744830464, 27, 7516192768, 29, 6176733962839470, 31, 32, 283467841536, 584115552256, 1202590842880

Offset

1,2

Links

Harry J. Smith, Table of n, a(n) for n = 1..500

Example

a(6) = 6*(2^6) = 384 because omega(6) = 2.

Mathematica

Table[n*PrimeNu[n]^n, {n, 40}] (* Harvey P. Dale, Nov 22 2012 *)

Prog

(PARI) for(n=1, 20, print(n*omega(n)^n))
(PARI) { for (n=1, 500, write("b061340.txt", n, " ", n*omega(n)^n) ) } \\ Harry J. Smith, Jul 21 2009

Crossrefs

Cf. A001221 (omega), A061452.

Sequence in context: A062942 A303366 A037437 * A004889 A037435 A001096

Adjacent sequences: A061337 A061338 A061339 * A061341 A061342 A061343

Keyword

easy,nice,nonn

Author

Jason Earls, Jun 15 2001

Extensions

Spurious commas in several entries removed by Harry J. Smith, Jul 21 2009

Status

approved