A154788 Records in A085543.
1, 2, 4, 8, 10, 12, 24, 40, 48, 56, 128, 144, 192, 256, 384, 480, 576, 768, 1536, 4608, 6144, 6912, 15360, 36864, 294912
Offset: 1
Programs
-
Mathematica
DeleteDuplicates[DivisorSigma[0,PartitionsP[Range[0,2000]]],GreaterEqual] (* The program generates the first 22 terms of the sequence. *) (* Harvey P. Dale, Dec 09 2024 *)
Formula
Extensions
More terms from Max Alekseyev, Apr 26 2010