A263559 a(n) = A083186(n) mod A007504(n).

1, 3, 9, 2, 11, 26, 51, 3, 17, 39, 73, 119, 175, 237, 307, 8, 49, 88, 151, 220, 295, 380, 479, 584, 705, 848, 999, 1158, 1321, 1486, 1687, 51, 139, 241, 355, 477, 611, 763, 919, 1085, 1253, 1435, 1633, 1839, 2055, 2277, 2519, 2813, 3111, 3413, 3719, 4023, 4341, 4683, 5019

Offset

1,2

Comments

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.

Links

Table of n, a(n) for n=1..55.

Example

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

Mathematica

Table[Mod[Sum[Prime@ Prime@ k, {k, n}], Sum[Prime@ k, {k, n}]], {n, 55}] (* Michael De Vlieger, Oct 21 2015 *)

Prog

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

Crossrefs

Cf. A007504, A083186, A262744.

Sequence in context: A060956 A125301 A347214 * A262343 A140985 A286676

Adjacent sequences: A263556 A263557 A263558 * A263560 A263561 A263562

Keyword

nonn

Author

Altug Alkan, Oct 21 2015

Status

approved