OFFSET
1,1
FORMULA
A081326(a(n)) = 1.
MATHEMATICA
nmax = 1000;
S = Select[Range[nmax], Max[FactorInteger[#][[All, 1]]] <= 3 &];
P[n_] := IntegerPartitions[n, {2}, TakeWhile[S, # < n &]];
selQ[n_] := Length[P[n]] == 1;
Select[Range[nmax], selQ] (* Jean-François Alcover, Oct 14 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 19 2003
STATUS
approved