OFFSET
1,3
MATHEMATICA
lim=10^6; Union@ Reap[ Sow[0]; For[i = 2, (f = Fibonacci[i]) < lim, i++, For[ j=1, (p = BellB[j] f) < lim, j++, Sow@ p]]][[2, 1]] (* Giovanni Resta, Oct 03 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Sep 20 2016
STATUS
approved