OFFSET
1,2
EXAMPLE
The sequence of strict partitions begins: (), (1), (2), (3), (2,1), (4), (3,1), (5), (6), (4,1), (3,2), (7), (8), (4,2), (5,1), (9), (6,1), (10), (3,2,1), (11), (5,2), (7,1), (4,3), (12), (8,1), (6,2), (13), (4,2,1).
MATHEMATICA
Table[If[n==1, {}, Join@@Cases[FactorInteger[n]//Reverse, {p_, k_}:>Table[PrimePi[p], {k}]]], {n, Select[Range[100], SquareFreeQ]}]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Gus Wiseman, Sep 15 2018
STATUS
approved