OFFSET
1,2
COMMENTS
Is every term greater than 3 divisible by 21?
EXAMPLE
126 = 2*3*21 = 7*18.
MATHEMATICA
s = {1}; z = 70; f = Fibonacci[2 + Range[z]]; Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}]; s = Prepend[s, 0]; (* A160009 *)
g = LucasL[Range[z]]; t = {1}; Do[t = Union[t, Select[t*g[[i]], # <= g[[z]] &]], {i, z}];
Intersection[s, t]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Clark Kimberling, Jun 19 2016
STATUS
approved