A058982 Increasing values of the Improperly Reduced Fibonacci Sequence (A058981).

0, 1, 2, 3, 5, 7, 11, 17, 23, 29, 31, 37, 43, 59, 67, 97, 101, 121, 125, 137, 149, 181, 233, 394, 603, 647, 863, 871, 1093, 1665, 2237, 2254, 3113, 4501, 5531, 6137, 8597, 14734, 22511

Offset

0,3

Links

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

Mathematica

y = 0; c = l = i = z = 1; d = {1}; Do[ x = y + z; c++; j = 1; While[ ! IntegerQ[ x / d[ [ j ] ] ] && j <= i, j++ ]; If[ j > i, d = Append[ d, x ]; i++, x = x/d[ [ j ] ]; d = Delete[ d, j ]; d = Append[ d, x ] ]; If[ x > l, l = x; Print[ x ] ]; y = z; z = x, {n, 1, 10^7} ]

Crossrefs

Cf. A058981.

Sequence in context: A090481 A094342 A164641 * A040069 A057751 A040046

Adjacent sequences: A058979 A058980 A058981 * A058983 A058984 A058985

Keyword

nonn,more

Author

Robert G. Wilson v, Jan 15 2001

Extensions

a(31)-a(38) from Sean A. Irvine, Sep 09 2022

Status

approved