|
|
A141132
|
|
a(n) = prime(prime(prime(prime(A028815(n) - 1) - 1) - 1) - 1) - 1.
|
|
6
|
|
|
1, 2, 36, 576, 1492, 4512, 8110, 14778, 18222, 26416, 41452, 51576, 71740, 87552, 96352, 111372, 135660, 167106, 172152, 218550, 238990, 250252, 284148, 317856, 351706, 400408, 441478, 463398, 490246, 505780, 527280, 643990, 679036, 718182
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = prime(prime(prime(prime(prime(n)) - 1) - 1) - 1) - 1, with a(0) = 1. - G. C. Greubel, Aug 05 2024
|
|
MATHEMATICA
|
A141132[n_]:= With[{p=Prime}, If[n==0, 1, p[p[p[p[p[n]]-1]-1]-1]-1 ]];
|
|
PROG
|
(Magma)
p:=NthPrime;
A141132:= func< n | n eq 0 select 1 else p(p(p(p(p(n))-1)-1)-1)-1 >;
(SageMath)
p=nth_prime
def A141132(n): return 1 if n==0 else p(p(p(p(p(n))-1)-1)-1)-1
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,changed
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|