A076232 - OEIS

%I #15 Aug 24 2019 20:01:49

%S 1,2,4,8,2,6,4,24,18,86,54,18,22,48,12,10,56,10,8,12,24

%N a(n) = prime(1+n!) - prime(n!).

%F a(n) = A001223(n!). - _Michel Marcus_, Aug 24 2019

%t Table[Prime[n! + 1] - Prime[n!], {n, 10}] (* _Wesley Ivan Hurt_, Aug 24 2019 *)

%o (PARI) a(n) = prime(1+n!) - prime(n!); \\ _Michel Marcus_, Aug 24 2019

%o (PARI) a(n) = my(p=prime(n!)); nextprime(p+1) - p; \\ _Michel Marcus_, Aug 24 2019

%Y Cf. A000040, A000142, A001223, A062439.

%K nonn,more

%O 1,2

%A _Labos Elemer_, Oct 03 2002

%E a(16)-a(21) from _Michel Marcus_, Aug 24 2019