OFFSET
0,2
COMMENTS
Except for 1, all terms are even numbers.
EXAMPLE
MATHEMATICA
m = 46000; brils = Select[Range[m], (f = FactorInteger[#])[[;; , 2]] == {2} || f[[;; , 2]] == {1, 1} && Equal @@ IntegerLength@f[[;; , 1]] &]; a[n_] := Length[IntegerPartitions[n, {2}, brils]]; mx = 43; s = Table[-1, {mx}]; c = 0; n = 1; While[c < mx, i = a[n] + 1; If[i <= mx && s[[i]] < 0, c++; s[[i]] = n]; n++]; s (* Amiram Eldar, Nov 03 2020 *)
PROG
(Magma) f:=Factorisation; brnumber:=func<n|#Divisors(n) eq 3 or &+[d[2]: d in f(n)] eq 2 and #Intseq(f(n)[1][1]) eq #Intseq(Factorization(n)[2][1])>; v:=[m:m in [2..50000]|brnumber(m)]; a:=[]; for n in [0..32] do k:=1; while #RestrictedPartitions(k, 2, Set(v)) ne n do k:=k+1; end while ; Append(~a, k); end for; a;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Marius A. Burtea, Nov 02 2020
STATUS
approved