A009287 a(1) = 3; thereafter a(n+1) = least k with a(n) divisors.
3, 4, 6, 12, 60, 5040, 293318625600, 670059168204585168371476438927421112933837297640990904154667968000000000000
Offset: 1
Keywords
Examples
5040 is the smallest number with 60 divisors.
References
Links
- Jason Earls, A note on the Smarandache divisors of divisors sequence and two similar sequences, in Smarandache Notions Journal (2004), Vol. 14.1, page 274.
- James Grime and Brady Haran, Infinite Anti-Primes, Numberphile video (2016).
Programs
-
Mathematica
f[n_] := Block[{k = 3, s = (Times @@ (Prime[Range[Length@ #]]^Reverse[# - 1])) & @ Flatten[FactorInteger[#] /. {a_Integer, b_} :> Table[a, {b}]] & /@ Range@ 10000}, Reap@ Do[Sow[k = s[[k]]], {n}] // Flatten // Rest]; f@ 6 (* Michael De Vlieger, Mar 28 2015, after Wouter Meeussen at A037019 *)
Formula
a(n) = A005179(a(n-1)).
Extensions
Entry revised by N. J. A. Sloane, Aug 25 2006
Comments