login
a(n) = prime(g) mod g where prime gap g = prime(n+1) - prime(n).
0

%I #27 Jul 23 2024 21:12:52

%S 0,1,1,3,1,3,1,3,1,1,1,3,1,3,1,1,1,1,3,1,1,3,1,3,3,1,3,1,3,1,3,1,1,9,

%T 1,1,1,3,1,1,1,9,1,3,1,1,1,3,1,3,1,1,9,1,1,1,1,1,3,1,9,1,3,1,3,1,1,9,

%U 1,3,1,3,1,1,3,1,3,3,3,9,1,9,1,1,3,1,3,3,1,3,1,3,3,3,3,1,1,1,7

%N a(n) = prime(g) mod g where prime gap g = prime(n+1) - prime(n).

%F a(n) = A004648(A001223(n)).

%e a(4) = prime(11 - 7) mod (11 - 7) = 7 mod 4 = 3.

%t a[n_]:=Mod[Prime[Prime[n+1]-Prime[n]],Prime[n+1]-Prime[n]]; Array[a,99] (* _Stefano Spezia_, Jun 29 2024 *)

%Y Cf. A000040, A001223, A004648.

%K nonn,easy

%O 1,4

%A _Zachary Marino_, Jun 28 2024