OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
V. E. Hoggatt, Jr., Additive partitions of the positive integers, Fib. Quart. 18 (1980), 220-225.
MAPLE
N:= 500: # for terms <= N
T:= {0, 1}: b:= 0: c:= 1: d:= 1:
do
a:= b; b:= c; c:= d; d:= a+b+c;
if d > 2*N then break fi;
T:= T union {d}
od:
A:= {3}:
for i from 4 to N do
Tp:= map(`-`, T, i);
if Tp intersect A = {} then A:= A union {i} fi
od:
sort(convert(A, list)); # Robert Israel, Jan 20 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Jeffrey Shallit, Nov 20 2023
STATUS
approved