A366929 Indices of records in A366927.

1, 2, 3, 7, 23, 47, 139, 283, 659, 1319, 8637, 20147, 83491, 169861, 999013, 3797401, 8153567, 55443959, 187814447, 646611887

Offset

1,2

Comments

The primes may not be in order. a(3) = 7, but the three primes are 2, 3, and 7.

Links

Table of n, a(n) for n=1..20.

Mathematica

r = 0;
s = Array[-1 + CountDistinct@ Rest@ NestWhileList[{#1 - #1/#2, #2} & @@ {First[#], FactorInteger[First[#]][[1, 1]]} &, {#, #}, Last[#] > 1 &][[All, -1]] &, 2^16, 2];
{1}~Join~Reap[Do[If[# > r, r = #; Sow[i + 1]] &[s[[i]]], {i, Length[s]}] ][[-1, 1]] (* Michael De Vlieger, Nov 08 2023 *)

Crossrefs

Cf. A366927.

Sequence in context: A037231 A376188 A248525 * A376187 A346161 A082449

Adjacent sequences: A366926 A366927 A366928 * A366930 A366931 A366932

Keyword

nonn,more

Author

Robert G. Wilson v, Oct 31 2023

Status

approved