This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
[NumberOfPartitions(6^n): n in [0..6]]; // Vincenzo Librandi, Oct 13 2014
Table[ PartitionsP[ 6^n], {n, 0, 5}]
[Floor(Log(10,(NumberOfPartitions(3^n))))+1: n in [0..12]]; // Vincenzo Librandi, Oct 13 2014
f[n_] := Floor[ Log[10, PartitionsP[ 3^n]] + 1]; Table[ f@n, {n, 0, 30}]
IntegerLength[PartitionsP[3^Range[0,30]]] (* Harvey P. Dale, Sep 05 2023 *)
a(n) = #Str(numbpart(3^n)); \\ Michel Marcus, Oct 13 2014
[Floor(Log(10,(NumberOfPartitions(5^n))))+1: n in [0..8]]; // Vincenzo Librandi, Oct 13 2014
f[n_] := Floor[ Log[10, PartitionsP[ 5^n]] + 1]; Table[ f@n, {n, 0, 30}]
IntegerLength[PartitionsP[5^Range[0,18]]] (* Harvey P. Dale, Sep 10 2021 *)
a(n) = #Str(numbpart(5^n)); \\ Michel Marcus, Oct 16 2014
[Floor(Log(10,(NumberOfPartitions(7^n))))+1: n in [0..6]]; // Vincenzo Librandi, Oct 13 2014
f[n_] := Floor[ Log[10, PartitionsP[ 7^n]] + 1]; Table[ f@n, {n, 0, 15}]
IntegerLength[PartitionsP[7^#]]&/@Range[0,15] (* Harvey P. Dale, Apr 27 2015 *)
a(n) = #Str(numbpart(7^n)); \\ Michel Marcus, Oct 16 2014
\n 0 1 2 3 4 5 6 7 8 9 10 11 ... b\ 2 1 1 1 2 3 4 7 10 15 22 32 47 3 1 1 2 4 8 15 27 48 86 152 266 463 4 1 1 3 7 15 32 67 138 280 565 1134 2275 5 1 1 4 10 25 58 135 306 690 1550 3474 7776 6 1 2 5 14 37 94 236 584 1437 3529 8654 21210 7 1 2 6 18 51 140 377 1005 2668 7069 18714 49527 8 1 2 7 22 67 197 565 1607 4555 12898 36494 103238 9 1 2 8 27 86 266 806 2429 7301 21918 65771 197332 10 1 2 9 32 107 347 1108 3515 11132 35219 111391 352269 11 1 2 10 37 130 442 1476 4910 16302 54085 179401 595031 12 1 2 11 43 156 550 1918 6661 23091 80011 277190 960240
f[n_, b_] := Ceiling[(Pi*Sqrt[2/3]*Sqrt[b]^n - Log[48]/2 - n*Log[b]) / Log[10]]; Table[ f[n - b, b], {n, 2, 20}, {b, n, 2, -1}] // Flatten
(* cross checked with *) g[n_, b_] := f[n, b] = Floor[ Log10[ PartitionsP[ b^n]] + 1]; Table[ f[n - b, b], {n, 2, 20}, {b, n, 2, -1}] // Flatten
Comments