This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A263559 #7 Nov 25 2015 02:29:42 %S A263559 1,3,9,2,11,26,51,3,17,39,73,119,175,237,307,8,49,88,151,220,295,380, %T A263559 479,584,705,848,999,1158,1321,1486,1687,51,139,241,355,477,611,763, %U A263559 919,1085,1253,1435,1633,1839,2055,2277,2519,2813,3111,3413,3719,4023,4341,4683,5019 %N A263559 a(n) = A083186(n) mod A007504(n). %C A263559 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 A263559 a(1) = 1 because prime(prime(1)) mod prime(1) = 3 mod 2 = 1. %t A263559 Table[Mod[Sum[Prime@ Prime@ k, {k, n}], Sum[Prime@ k, {k, n}]], {n, 55}] (* _Michael De Vlieger_, Oct 21 2015 *) %o A263559 (PARI) vector(100, n, sum(k=1, n, prime(prime(k))) % sum(k=1, n, prime(k))) %Y A263559 Cf. A007504, A083186, A262744. %K A263559 nonn %O A263559 1,2 %A A263559 _Altug Alkan_, Oct 21 2015