OFFSET
0,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..131 (terms 0..100 from Robert G. Wilson v)
FORMULA
MATHEMATICA
f[n_] := (FactorInteger@ BellB@ n)[[1, 1]]; Array[f, 50, 0]
PROG
(Magma) [1, 1] cat [Minimum(PrimeDivisors(Bell(n))): n in [2..50]];
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Dec 25 2016
STATUS
approved