A077324 Sum of terms of n-th row of A077321.

2, 8, 39, 124, 275, 462, 1505, 1816, 2439, 3080, 7271, 5256, 10725, 11284, 18435, 20336, 33031, 24984, 45201, 42120, 62937, 52646, 77671, 68544, 110925, 105326, 163161, 120372, 204189, 124710, 260183, 212096, 264165, 251906, 343735, 276624

Offset

1,1

Comments

By definition a(n) == 0 (mod n).

Links

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

Maple

A077324 := proc(nmax) local n, a, T, i, p, s ; T := [] ; a := [] ; n :=1 ; while nops(a) < nmax do s := 0 ; for i from 1 to n do p := 2 ; while ( p in T ) or (p-1) mod n <> 0 do p := nextprime(p) ; od ; T := [op(T), p] ; s := s+p ; od ; a := [op(a), s] ; n := n+1 ; od ; RETURN(a) ; end: A077324(50) ; # R. J. Mathar, Feb 03 2007

Mathematica

A077324[nmax_] := Module[{n = 1, a = {}, T = {}, i, p, s}, While[Length[a] < nmax, s = 0; For[i = 1, i <= n, i++, p = 2; While[MemberQ[T, p] || Mod[p - 1, n] != 0, p = NextPrime[p]]; T = Append[T, p]; s = s + p]; a = Append[a, s]; n = n + 1]; Return[a]];
A077324[36] (* Jean-François Alcover, Oct 17 2024, after R. J. Mathar *)

Crossrefs

Cf. A077321, A077322, A077323, A077325.

Sequence in context: A077318 A082014 A154133 * A112737 A206901 A162476

Adjacent sequences: A077321 A077322 A077323 * A077325 A077326 A077327

Keyword

nonn

Author

Amarnath Murthy, Nov 04 2002

Extensions

Corrected and extended by R. J. Mathar, Feb 03 2007

Status

approved