OFFSET
1,1
COMMENTS
Complementary set of (A323048).
Also numbers k such that at least three five-smooth numbers are needed to sum to k. - David A. Corneth, Jan 04 2019
Contains all k == 71 or 119 (mod 120). - Robert Israel, Apr 02 2019
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 1000: # to get all terms <= N
V:= {seq(seq(seq(2^a*3^b*5^c, a = 0 .. floor(log[2](N/3^b/5^c))), b = 0 .. floor(log[3](N/5^c))), c=0..floor(log[5](N)))}:
S:= {$1..N} minus V minus {seq(seq(V[i]+V[j], i=1..j), j=1..nops(V))}:
A:= sort(convert(S, list)): # Robert Israel, Apr 02 2019
MATHEMATICA
f[n_] := Union@Flatten@Table[2^a*3^b*5^c, {a, 0, Log2[n]}, {b, 0, Log[3, n/2^a]}, {c, 0, Log[5, n/(2^a*3^b)]}]; b = Block[{nn = 800, s}, s = f[nn]; {0, 1}~Join~
Select[Union@Flatten@Outer[Plus, s, s], # <= nn &]];
Complement[Range[800], b]
CROSSREFS
KEYWORD
nonn
AUTHOR
Carlos Alves, Jan 03 2019
STATUS
approved