login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A320118 a(1) = a(2) = 1; for n > 2, a(n) = A181819(n) * a(A181819(n)). 4

%I #9 Nov 26 2018 17:13:40

%S 1,1,2,6,2,24,2,10,6,24,2,144,2,24,24,14,2,144,2,144,24,24,2,240,6,24,

%T 10,144,2,80,2,22,24,24,24,54,2,24,24,240,2,80,2,144,144,24,2,336,6,

%U 144,24,144,2,240,24,240,24,24,2,1728,2,24,144,26,24,80,2,144,24,80,2,360,2,24,144,144,24,80,2,336,14,24,2,1728

%N a(1) = a(2) = 1; for n > 2, a(n) = A181819(n) * a(A181819(n)).

%H Antti Karttunen, <a href="/A320118/b320118.txt">Table of n, a(n) for n = 1..10080</a>

%F a(1) = a(2) = 1; for n > 2, a(n) = A181819(n) * a(A181819(n)).

%t Nest[Append[#1, #2 #1[[#2]] ] & @@ {#, Times @@ Prime@ FactorInteger[Length@ # + 1][[All, -1]]} &, {1, 1}, 82] (* _Michael De Vlieger_, Nov 25 2018 *)

%o (PARI)

%o A181819(n) = factorback(apply(e->prime(e),(factor(n)[,2])));

%o A320118(n) = if(n<=2,1,A181819(n)*A320118(A181819(n)));

%Y Cf. A181819, A182850.

%Y Cf. also A304465, A320016.

%K nonn

%O 1,3

%A _Antti Karttunen_, Nov 24 2018

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 18 17:05 EDT 2024. Contains 375269 sequences. (Running on oeis4.)