The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A334099 The least k for which A329697(k) = n; Position of first occurrence of n (and also records) in A329697. 3
 1, 3, 7, 19, 43, 127, 283, 659, 1319, 3957, 9227, 21599, 50123, 129263, 258527, 775581, 1551163, 4340087, 9750239, 27353747, 65148847, 156067127, 340997113, 955523423 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 COMMENTS Note that although most of the terms after 1 are primes, we also have a few composites: a(9) = a(1)*a(8) = 3*1319 = 3957, a(15) = a(1)*a(14) = 3*258527 = 775581, a(22) = a(8)*a(14) = 340997113. a(n) <= 3^n and in particular, a(n+1) <= 3*a(n), n > 0 and more generally a(n + m) <= a(n) * a(m) where m, n >= 0. - David A. Corneth, Apr 15 2020 The above follows because A329697 is totally additive. LINKS FORMULA For all n >= 0, A329697(a(n)) = n. MATHEMATICA With[{s = Array[Length@ NestWhileList[# - #/FactorInteger[#][[-1, 1]] &, #, # != 2^IntegerExponent[#, 2] &] - 1 &, 10^6]}, {1}~Join~Array[FirstPosition[s, #][] &, Max@ s]] (* Michael De Vlieger, Apr 30 2020 *) PROG (PARI) A329697(n) = if(!bitand(n, n-1), 0, 1+A329697(n-(n/vecmax(factor(n)[, 1])))); m=-1; k=0; for(n=1, 2^32, t=A329697(n); if(t>m, m=t; write("b334099.txt", k, " ", n); k++)); CROSSREFS The leftmost column of A334100. Cf. A329697 (a left inverse). Cf. A067513. Cf. A007755, A105017, and also A329662 (analogous sequence when using the map k -> k + k/p). Sequence in context: A055622 A075900 A176500 * A136041 A146685 A146653 Adjacent sequences:  A334096 A334097 A334098 * A334100 A334101 A334102 KEYWORD nonn,more AUTHOR Antti Karttunen, Apr 14 2020 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 21 04:00 EDT 2021. Contains 348141 sequences. (Running on oeis4.)