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.
b[n_, i_] := b[n, i] = If[n==0 || i==1, n, {q, r} = QuotientRemainder[n, i]; If[r == 0, q, 0] + Sum[b[n - i j, i - 1], {j, 0, n/i}]];
spt[n_] := b[n, n];
a[n_] := spt[5n+4]/5;
Table[a[n], {n, 0, 26}] (* Jean-François Alcover, Jan 30 2019, after Alois P. Heinz in A092269 *)
b[n_, i_] := b[n, i] = If[n==0 || i==1, n, {q, r} = QuotientRemainder[n, i]; If[r == 0, q, 0] + Sum[b[n - i*j, i - 1], {j, 0, n/i}]];
spt[n_] := b[n, n];
a[n_] := spt[13 n + 6]/13;
Table[a[n], {n, 0, 19}] (* Jean-François Alcover, Jan 30 2019, after Alois P. Heinz in A092269 *)
Comments