cp's OEIS Frontend

A351952 a(n) = A351950(n) / A351577(n).

%I A351952 #14 Oct 23 2024 10:50:47
%S A351952 0,1,1,5,2,7,1,7,8,31,13,41,2,9,11,37,16,47,3,11,14,43,19,53,1,9,10,
%T A351952 41,17,55,12,59,71,247,106,317,19,73,92,289,127,359,26,87,113,331,148,
%U A351952 401,2,11,13,47,20,61,17,69,86,277,121,347,24,83,107,319,142,389,31,97,128,361,163,431,3,13,16,53,23,67
%N A351952 a(n) = A351950(n) / A351577(n).
%C A351952 Compare how different the scatter plot is to that of A342002, albeit with a very similar definition.
%C A351952 Note: this is at least partly because the other uses linear and the other uses logarithmic scatter plot. - _Antti Karttunen_, Oct 23 2024
%H A351952 Antti Karttunen, <a href="/A351952/b351952.txt">Table of n, a(n) for n = 0..20160</a>
%H A351952 <a href="/index/Fa#facbase">Index entries for sequences related to factorial base representation</a>
%F A351952 a(n) = A351950(n) / A351577(n).
%F A351952 a(n) = A342001(A276076(n)) = A083345(A276076(n)).
%F A351952 a(n) = A342002(A351576(n)).
%F A351952 a(n) = A351953(A225901(n)).
%o A351952 (PARI)
%o A351952 A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
%o A351952 A003557(n) = (n/factorback(factorint(n)[, 1]));
%o A351952 A276076(n) = { my(i=0,m=1,f=1,nextf); while((n>0),i=i+1; nextf = (i+1)*f; if((n%nextf),m*=(prime(i)^((n%nextf)/f));n-=(n%nextf));f=nextf); m; };
%o A351952 A351952(n) = { my(u=A276076(n)); (A003415(u) / A003557(u)); };
%Y A351952 Cf. A000142 (positions of 1's), A003415, A003557, A083345, A225901, A276076, A342001, A342002, A351576, A351577, A351950, A351953, A351954.
%K A351952 nonn,base,look
%O A351952 0,4
%A A351952 _Antti Karttunen_, Apr 01 2022