login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

a(n) = A276086(A025487(n)).
4

%I #6 Mar 09 2019 19:23:23

%S 2,3,9,5,15,25,225,625,7,21,35,875,49,441,1225,1715,2401,36015,

%T 1500625,117649,2941225,11,55,77,17325,67375,184877,115548125,121,

%U 3025,5929,124509,10168235,456533,399466375,14641,9150625,717409,35153041,15502491081,1127357,1381012325,1771561,62004635,208422380089,4774356895,214358881

%N a(n) = A276086(A025487(n)).

%H Antti Karttunen, <a href="/A324576/b324576.txt">Table of n, a(n) for n = 1..10001</a>

%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>

%H <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>

%F a(n) = A276086(A025487(n)).

%F A001222(a(n)) = A324387(n).

%o (PARI)

%o A276086(n) = { my(i=0,m=1,pr=1,nextpr); while((n>0),i=i+1; nextpr = prime(i)*pr; if((n%nextpr),m*=(prime(i)^((n%nextpr)/pr));n-=(n%nextpr));pr=nextpr); m; };

%o A324576(n) = A276086(A025487(n));

%Y Cf. A025487, A276086, A324387, A324577.

%Y Cf. A324581 (a subsequence).

%K nonn

%O 1,1

%A _Antti Karttunen_, Mar 09 2019