OFFSET
1,1
LINKS
Michel Lagneau, Table of n, a(n) for n = 1..390
EXAMPLE
MATHEMATICA
lst:={}; f[n_]:=Times@@PartitionsP/@Last/@FactorInteger@n; g[n_]:=FiniteGroupCount[n]-FiniteAbelianGroupCount[n]; Do[If[f[n]==g[n], AppendTo[lst, n]], {n, 500}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Mar 24 2014
STATUS
approved