%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