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

Crossrefs

Cf. A058981, A058982.

Sequence in context: A176776 A049931 A335436 * A261208 A010375 A095028

Adjacent sequences: A058980 A058981 A058982 * A058984 A058985 A058986

Keyword

nonn

Author

Robert G. Wilson v, Jan 15 2001

Extensions

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

Status

approved