cp's OEIS Frontend

A332994 a(1) = 1, for n > 1, a(n) = n + a(A052126(n)).

%I A332994 #14 Apr 05 2020 18:49:36
%S A332994 1,3,4,7,6,9,8,15,13,13,12,19,14,17,19,31,18,27,20,27,25,25,24,39,31,
%T A332994 29,40,35,30,39,32,63,37,37,41,55,38,41,43,55,42,51,44,51,58,49,48,79,
%U A332994 57,63,55,59,54,81,61,71,61,61,60,79,62,65,76,127,71,75,68,75,73,83,72,111,74,77,94,83,85,87,80,111,121
%N A332994 a(1) = 1, for n > 1, a(n) = n + a(A052126(n)).
%H A332994 Antti Karttunen, <a href="/A332994/b332994.txt">Table of n, a(n) for n = 1..16384</a>
%H A332994 Antti Karttunen, <a href="/A332994/a332994.txt">Data supplement: n, a(n) computed for n = 1..65537</a>
%F A332994 a(1) = 1; and for n > 1, a(n) = n + a(A052126(n)).
%F A332994 a(n) = n + A322382(n).
%F A332994 a(n) = A332993(n) - A333791(n).
%F A332994 a(n) = A000203(n) - A333784(n).
%o A332994 (PARI) A332994(n) = if(1==n,n,n + A332994(n/vecmax(factor(n)[,1])));
%Y A332994 Cf. A000203, A052126, A322382, A332904, A332993, A333784, A333791, A333794.
%K A332994 nonn
%O A332994 1,2
%A A332994 _Antti Karttunen_, Apr 04 2020