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: A000057 A037231 A248525 * A346161 A082449 A129741

Adjacent sequences: A366926 A366927 A366928 * A366930 A366931 A366932

Keyword

nonn,more

Author

Robert G. Wilson v, Oct 31 2023

Status

approved