OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..10000
FORMULA
MATHEMATICA
A141138[n_]:= If[n==0, 1, Prime[Prime[n]] -1];
Table[A141138[n], {n, 0, 70}] (* G. C. Greubel, Aug 05 2024 *)
PROG
(Magma)
A141138:= func< n | n eq 0 select 1 else NthPrime(NthPrime(n)) -1 >;
[A141138(n): n in [0..50]]; // G. C. Greubel, Aug 05 2024
(SageMath)
def A141138(n): return 1 if n==0 else nth_prime(nth_prime(n))-1
[A141138(n) for n in range(71)] # G. C. Greubel, Aug 05 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jul 31 2008
EXTENSIONS
a(14), a(28) corrected by D. S. McNeil, Mar 21 2009
Offset changed by G. C. Greubel, Aug 05 2024
STATUS
approved