cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A175125 a(n) is the number of numbers m such that the number of iterations of r -> r - (largest divisor d < r) needed to reach 1 starting at r = m is equal to n.

This page as a plain text file.
%I A175125 #21 Apr 05 2020 05:06:26
%S A175125 1,1,2,3,5,9,13,23,36,65,100,175,275,468,760,1266,2077,3454,5690,9449,
%T A175125 15547,25709,42459,70181,115947,191509,316570,523087,864406,1428174,
%U A175125 2359266
%N A175125 a(n) is the number of numbers m such that the number of iterations of r -> r - (largest divisor d < r) needed to reach 1 starting at r = m is equal to n.
%e A175125 Example (a(4)=5): There are five numbers (7,9,10,12,16) with 4 steps of defined iteration: 7-1=6, 6-3=3, 3-1=2, 2-1=1; 9-3=6, 6-3=3, 3-1=2, 2-1=1; 10-5=5, 5-1=4, 4-2=2, 2-1=1; 12-6=6, 6-3=3, 3-1=2, 2-1=1; 16-8=8, 8-4=4, 4-2=2, 2-1=1.
%o A175125 (PARI) a064097(n)={my(k=1,d=divisors(n),r=n-d[#d-1]);while(r>1,d=divisors(r);r-=d[#d-1];k++);k};
%o A175125 my(c=vector(50));for(k=2,2^20,j=a064097(k);c[j]++);concat([1],c[1..20]) \\ _Hugo Pfoertner_, Mar 23 2020
%Y A175125 Cf. A000079, A064097, A105017.
%K A175125 nonn,more
%O A175125 0,3
%A A175125 _Jaroslav Krizek_, Feb 15 2010
%E A175125 a(8)-a(27) from _Hugo Pfoertner_, Mar 23 2020
%E A175125 a(28)-a(30) from _Robert G. Wilson v_, Apr 05 2020