OFFSET
1,6
EXAMPLE
a(32) = 8 = 2^3, as 32 = 8 + 3*2^3.
MATHEMATICA
smooth3Q[n_] := n/2^IntegerExponent[n, 2]/3^IntegerExponent[n, 3] == 1;
a[n_] := Module[{m}, For[m = 1, m<n, m++, If[smooth3Q[m] && smooth3Q[n-m], Return[m]]]; 0];
Table[a[n], {n, 1, 1000}] (* Jean-François Alcover, Oct 14 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 19 2003
STATUS
approved