|
|
A077324
|
|
Sum of terms of n-th row of A077321.
|
|
5
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
By definition a(n) == 0 (mod n).
|
|
LINKS
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|