OFFSET
1,3
LINKS
R. J. Mathar, Table of n, a(n) for n = 1..197
MAPLE
isA113243 := proc(n)
local i, j ;
for j from 3 do
for i from 3 to j do
return true;
break ;
end if;
end do:
return false;
end if;
end do:
end proc:
for n from 0 to 10000 do
if isA113243(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Oct 04 2014
MATHEMATICA
Union[Flatten[Differences/@Subsets[Drop[LinearRecurrence[{1, 1, 1, 1}, {0, 0, 0, 1}, 16], 3], {2}]]] (* James C. McMahon, Jun 23 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Oct 19 2005; corrected Oct 20 2005
STATUS
approved