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,1

Links

Table of n, a(n) for n=0..18.

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

Cf. A000587, A274300.

Sequence in context: A022994 A023480 A036743 * A165859 A341708 A031958

Adjacent sequences: A274298 A274299 A274300 * A274302 A274303 A274304

Keyword

nonn,more

Author

N. J. A. Sloane, Jun 20 2016

Status

approved