OFFSET
0,1
LINKS
Tewodros Amdeberhan, Valerio De Angelis, and Victor H. Moll, Complementary Bell numbers: Arithmetical properties and Wilf's conjecture, in: I. Kotsireas and E. Zima (eds.), Advances in Combinatorics: Waterloo Workshop in Computer Algebra, W80, May 26-29, 2011, Springer Berlin Heidelberg, 2013, pp. 23-56; ResearchGate link.
Valerio De Angelis and Dominic Marcello, Wilf's conjecture, The American Mathematical Monthly, Vol. 123, No. 6 (2016), pp. 557-573; alternative link; ResearchGate link. (Note a(14) has a typo.)
MATHEMATICA
b[0] = 1; b[n_] := b[n] = b[n-1] + If[IntegerExponent[BellB[24*b[n-1] + 14, -1], 2] > n + 4, 0, 2^(n-1)]; a[n_] := 24 * b[n] + 14; Array[a, 11, 0] (* Amiram Eldar, May 27 2024 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, Jun 20 2016
STATUS
approved