cp's OEIS Frontend

A161845 a(n) = A002808(n)^A141468(n).

%I A161845 #6 Feb 23 2019 20:14:24
%S A161845 1,6,4096,531441,100000000,5159780352,289254654976,129746337890625,
%T A161845 72057594037927936,6746640616477458432,655360000000000000000,
%U A161845 630880792396715529789561,705429498686404044207947776,96479729228174488169059713024
%N A161845 a(n) = A002808(n)^A141468(n).
%C A161845 The n-th composite raised to the power m, where m = n-th nonprime.
%e A161845 a(1) = 4^0 = 1;
%e A161845 a(2) = 6^1 = 6;
%e A161845 a(3) = 8^4 = 4096;
%e A161845 a(4) = 9^6 = 531441;
%e A161845 a(5) = 10^8 = 100000000;
%e A161845 a(6) = 12^9 = 5159780352.
%p A161845 A002808 := proc(n) option remember; local a; if n = 1 then 4; else for a from procname(n-1)+1 do if not isprime(a) then RETURN(a) : fi; od: fi; end:
%p A161845 A141468 := proc(n) if n >= 3 then A002808(n-2) ; else n-1 ; fi; end:
%p A161845 A161845 := proc(n) A002808(n)^A141468(n) ; end:
%p A161845 seq(A161845(n),n=1..20) ; # _R. J. Mathar_, Jun 23 2009
%Y A161845 Cf. A002808, A141468.
%K A161845 nonn
%O A161845 1,2
%A A161845 _Juri-Stepan Gerasimov_, Jun 20 2009
%E A161845 a(4) corrected and extended by _R. J. Mathar_, Jun 23 2009
%E A161845 Edited by _Jon E. Schoenfield_, Feb 23 2019