%I #7 Nov 25 2015 02:29:42

%S 1,3,9,2,11,26,51,3,17,39,73,119,175,237,307,8,49,88,151,220,295,380,

%T 479,584,705,848,999,1158,1321,1486,1687,51,139,241,355,477,611,763,

%U 919,1085,1253,1435,1633,1839,2055,2277,2519,2813,3111,3413,3719,4023,4341,4683,5019

%N a(n) = A083186(n) mod A007504(n).

%C Sequence is interesting because of its graph. a(n)-a(n-1) < 0 at some points such as n=4 and n=8, although usually a(n)-a(n-1) > 0.

%e a(1) = 1 because prime(prime(1)) mod prime(1) = 3 mod 2 = 1.

%t Table[Mod[Sum[Prime@ Prime@ k, {k, n}], Sum[Prime@ k, {k, n}]], {n, 55}] (* _Michael De Vlieger_, Oct 21 2015 *)

%o (PARI) vector(100, n, sum(k=1, n, prime(prime(k))) % sum(k=1, n, prime(k)))

%Y Cf. A007504, A083186, A262744.

%K nonn

%O 1,2

%A _Altug Alkan_, Oct 21 2015