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
Keywords
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