Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #15 Aug 05 2024 15:42:07
%S 1,2,6,28,52,112,172,270,316,420,592,700,910,1060,1150,1290,1510,1782,
%T 1830,2212,2376,2472,2740,2998,3256,3630,3930,4078,4270,4390,4546,
%U 5350,5590,5866,6100,6658,6802,7186,7602,7828,8218,8520,8712,9310,9438,9732
%N a(n) = prime(prime(A028815(n) - 1) - 1) - 1.
%H G. C. Greubel, <a href="/A141136/b141136.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A000040(A000040(A000040(n)) - 1) - 1, with a(0) = 1. - _G. C. Greubel_, Aug 05 2024
%t A141136[n_]:= With[{p=Prime}, If[n==0, 1, p[p[p[n]]-1]-1]];
%t Table[A141136[n], {n,0,60}] (* _G. C. Greubel_, Aug 05 2024 *)
%o (Magma)
%o p:=NthPrime;
%o A141136:= func< n | n eq 0 select 1 else p(p(p(n))-1) -1 >;
%o [A141136(n): n in [0..50]]; // _G. C. Greubel_, Aug 05 2024
%o (SageMath)
%o p=nth_prime
%o def A141136(n): return 1 if n==0 else p(p(p(n))-1)-1
%o [A141136(n) for n in range(51)] # _G. C. Greubel_, Aug 05 2024
%Y Cf. A000040, A028815, A141130, A141132, A141133, A141138.
%K nonn
%O 0,2
%A _Juri-Stepan Gerasimov_, Jul 31 2008
%E Corrected and extended by _D. S. McNeil_, Mar 21 2009
%E Offset changed by _G. C. Greubel_, Aug 05 2024