A274301 a(n) = 24*A274300(n) + 14.
38, 38, 38, 134, 326, 326, 326, 1862, 1862, 8006, 20294, 44870, 94022, 192326, 192326, 585542, 1371974, 2944838, 2944838
Offset: 0
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.)
Programs
-
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 *)
Comments