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

Author

N. J. A. Sloane, Mar 26 2004

Keywords

• nonn

Programs

Mathematica

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

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