0,3

a(n)>a(n+1) iff a(n) is composite and a(n)>Max(a(k):0<=k<n);

a(A101505(n)) = n and a(m) < n for m < A101505(n).

Ivan Neretin, Table of n, a(n) for n = 0..10000

Nest[Append[#, (x = Max@Intersection[Most@#, Divisors[#[[-1]]]]) + #[[-1]]/x] &, {1, 1}, 77] (* Ivan Neretin, Aug 24 2016 *)

Sequence in context: A092032 A058222 A064064 * A125568 A248110 A108872

Adjacent sequences: A101501 A101502 A101503 * A101505 A101506 A101507

nonn

Reinhard Zumkeller, Dec 05 2004

approved