|
%I #15 Sep 03 2016 23:52:54
%S 3,4,8,12,26,30,44,52,66,84,100,126,140,150,176,198,222,232,270,288,
%T 300,330,350,374,424,456,466,486,492,506,592,612,650,670,714,730,772,
%U 808,830,860,890,910,972,988,1016,1024,1090,1200,1212,1222,1248,1272,1290,1350,1370,1430,1464
%N a(n) = prime(prime(n)+1) - prime(n).
%F a(n) = A000040(A008864(n)) - A000040(n) = A072677(n) - A000040(n).
%e For n=3, prime(prime(3)+1) = 13, and prime(3) = 5, therefore a(3) = 13 - 5 = 8.
%t Table[Prime[Prime[n]+1] - Prime[n], {n, 1, 100}]
%o (PARI) a(n) = prime(prime(n)+1) - prime(n); \\ _Michel Marcus_, Aug 18 2016
%Y Cf. A072677, A008864, A168152, A275990.
%K nonn
%O 1,1
%A _Terry D. Grant_, Aug 15 2016
|
