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!)
A320009 a(0) = 1; for n > 0, a(n) = A000005(n) * a(n-A000005(n)), where A000005(n) gives the number of divisors of n. 5
1, 1, 2, 2, 3, 4, 8, 8, 12, 24, 32, 48, 48, 96, 128, 192, 240, 384, 288, 768, 768, 1536, 1152, 3072, 1920, 3456, 4608, 12288, 6912, 24576, 9216, 49152, 27648, 98304, 36864, 196608, 110592, 393216, 147456, 786432, 221184, 1572864, 294912, 3145728, 884736, 4718592, 1179648, 9437184, 1474560, 3538944, 5308416, 37748736, 7077888, 75497472 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..150

FORMULA

a(0) = 1; for n > 0, a(n) = A000005(n) * a(n-A000005(n)).

MATHEMATICA

Nest[Append[#1, #2 #1[[-#2]] ] & @@ {#, DivisorSigma[0, Length@ #]} &, {1}, 53] (* Michael De Vlieger, Nov 25 2018 *)

PROG

(PARI) A320009(n) = if(0==n, 1, numdiv(n)*A320009(n-numdiv(n)));

CROSSREFS

Cf. A000005, A049820, A259934.

Cf. also A320002, A320008, A320016.

Sequence in context: A302487 A032252 A112708 * A147558 A032243 A153922

Adjacent sequences:  A320006 A320007 A320008 * A320010 A320011 A320012

KEYWORD

nonn

AUTHOR

Antti Karttunen, Nov 24 2018

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 September 26 06:16 EDT 2021. Contains 347664 sequences. (Running on oeis4.)