login
A276828
Numbers of the form Bell(i)*Fibonacci(j).
0
0, 1, 2, 3, 4, 5, 6, 8, 10, 13, 15, 16, 21, 25, 26, 30, 34, 40, 42, 45, 52, 55, 65, 68, 75, 89, 104, 105, 110, 120, 144, 156, 170, 178, 195, 203, 233, 260, 275, 288, 315, 377, 406, 416, 445, 466, 510, 609, 610, 676, 720, 754, 825, 877, 987, 1015, 1092, 1165
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