A351951 - OEIS

%I #8 Apr 02 2022 10:32:22

%S 0,1,1,5,3,15,1,7,8,31,24,93,5,35,40,155,120,465,25,175,200,775,600,

%T 2325,1,9,10,41,30,123,12,59,71,247,213,741,60,295,355,1235,1065,3705,

%U 300,1475,1775,6175,5325,18525,7,63,70,287,210,861,84,413,497,1729,1491,5187,420,2065,2485,8645,7455,25935,2100

%N a(n) = A069359(A276076(n)).

%H Antti Karttunen, <a href="/A351951/b351951.txt">Table of n, a(n) for n = 0..10080</a>

%H <a href="/index/Fa#facbase">Index entries for sequences related to factorial base representation</a>

%F a(n) = A069359(A276076(n)).

%F a(n) = A329029(A351576(n)).

%o (PARI)

%o A069359(n) = (n*sumdiv(n, d, isprime(d)/d)); \\ From A069359

%o 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 A351951(n) = A069359(A276076(n));

%Y Cf. A069359, A276076, A329029, A351576.

%Y Coincides with A351950 on positions given by A059590.

%K nonn,base

%O 0,4

%A _Antti Karttunen_, Apr 01 2022