login
A141130
a(n) = prime(prime(prime(prime(prime(A028815(n) - 1) - 1) - 1) - 1) - 1) - 1.
7
1, 2, 150, 4210, 12496, 43206, 83046, 161092, 202966, 305068, 498936, 633160, 906426, 1125418, 1248412, 1460566, 1808478, 2264752, 2339136, 3026112, 3331266, 3501748, 4015168, 4529520, 5049852, 5806336, 6448536, 6792726, 7214610
OFFSET
0,2
LINKS
FORMULA
a(n) = prime(prime(prime(prime(prime(prime(n)) - 1) - 1) - 1) - 1) - 1, with a(0) = 1. - G. C. Greubel, Aug 05 2024
MATHEMATICA
A141130[n_]:= With[{p=Prime}, If[n==0, 1, p[p[p[p[p[p[n]]-1]-1]-1]-1]-1 ]];
Table[A141130[n], {n, 0, 60}] (* G. C. Greubel, Aug 05 2024 *)
PROG
(Magma)
p:=NthPrime;
A141130:= func< n | n eq 0 select 1 else p(p(p(p(p(p(n))-1)-1)-1)-1)-1 >;
[A141130(n): n in [0..50]]; // G. C. Greubel, Aug 05 2024
(SageMath)
p=nth_prime
def A141130(n): return 1 if n==0 else p(p(p(p(p(p(n))-1)-1)-1)-1)-1
[A141130(n) for n in range(51)] # G. C. Greubel, Aug 05 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from D. S. McNeil, Mar 21 2009
Offset changed by G. C. Greubel, Aug 05 2024
STATUS
approved