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

Author

Robert G. Wilson v, Jan 15 2001

Keywords

• nonn
• more

Crossrefs

Cf. A058981.

Programs

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} ]

Extensions

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