A092460 Numbers that are not Bell numbers (A000110).

0, 3, 4, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79

Offset

1,2

Links

Table of n, a(n) for n=1..75.

Mathematica

With[{b=BellB[Range[6]]}, Complement[Range[0, Last[b]], b]] (* Harvey P. Dale, Sep 05 2020 *)

Prog

(Python)
from itertools import accumulate, islice
def A092460_gen(): # generator of terms
    yield 0
    blist, b = (1, ), 1
    while True:
        blist = list(accumulate(blist, initial=b))
        yield from range(b+1, b:=blist[-1])
A092460_list = list(islice(A092460_gen(), 30)) # Chai Wah Wu, Jun 22 2022

Crossrefs

Sequence in context: A078923 A165240 A350398 * A092459 A039232 A114316

Adjacent sequences: A092457 A092458 A092459 * A092461 A092462 A092463

Keyword

nonn

Author

N. J. A. Sloane, Mar 26 2004

Status

approved