A171413 Complement of self-generating sequence A005244.

1, 4, 6, 7, 8, 10, 11, 12, 13, 15, 16, 18, 19, 20, 21, 22, 23, 24, 25, 28, 29, 30, 31, 32, 34, 35, 36, 37, 38, 39, 40, 42, 43, 45, 46, 47, 48, 49, 52, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 66, 67, 68, 70, 71, 72, 73, 74, 75, 76, 78, 79, 82, 83, 85, 86, 88

Offset

1,2

Comments

A005244(n) = a self-generating sequence: start with 2, take all products of any 2 previous elements, subtract 1 and adjoin them to the sequence.

Links

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

Mathematica

f[s_, mx_] := Union[s, Select[Times @@@ Subsets[s, {2}] - 1, # <= mx &]]; mx = 99; Complement[Range[mx], FixedPoint[f[#, mx] &, {2, 3}]] (* T. D. Noe, Mar 30 2011 *)

Crossrefs

Sequence in context: A047509 A181057 A151757 * A225551 A247359 A305415

Adjacent sequences: A171410 A171411 A171412 * A171414 A171415 A171416

Keyword

nonn

Author

Jaroslav Krizek, Dec 08 2009

Status

approved