|
%I #15 Sep 08 2022 08:46:20
%S 8,16,28,48,72,100,126,150,192,236,284,336,370,402,452,518,560,614,
%T 684,720,768,832,892,970,1056,1110,1150,1186,1216,1326,1448,1512,1570,
%U 1656,1736,1796,1886,1958,2022,2094,2150,2240,2324,2372,2418,2514,2706,2842,2880,2918
%N a(n) = prime(prime(n+1)) + prime(prime(n)).
%C All terms are even. - _Michel Marcus_, Mar 20 2018
%F a(n) = A006450(n+1) + A006450(n).
%t Table[Prime[Prime[n + 1]] + Prime[Prime[n]], {n, 1, 50}]
%o (Magma) [NthPrime(NthPrime(n+1))+NthPrime(NthPrime(n)):n in [1..50]];
%o (PARI) a(n) = prime(prime(n+1)) + prime(prime(n)); \\ _Michel Marcus_, Mar 20 2018
%Y Cf. A000040, A006450, A073131.
%K nonn
%O 1,1
%A _Vincenzo Librandi_, Mar 20 2018
|
