A058983 Position at which increasing values of the Improperly Reduced Fibonacci Sequence (A058981) occur.

0, 1, 3, 4, 5, 8, 25, 27, 28, 397, 400, 402, 403, 405, 1398, 1399, 1401, 11300, 11307, 11309, 11310, 11315, 44839, 44840, 44842, 1447644, 6237276, 6237278, 9113438, 9113440, 9113441, 60850032, 176139461, 525738914, 525738917, 2492039442, 2492039443, 2492039444, 2492039446

Offset: 0

Author

Robert G. Wilson v, Jan 15 2001

Keywords

• nonn

Crossrefs

Cf. A058981, A058982.

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[ c ] ]; y = z; z = x, {n, 1, 10^7} ]

Extensions

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