A160915 Row sums of triangle defined in A095181.

2, 7, 48, 34, 125, 243, 1106, 852, 819, 2630, 1606, 5262, 8099, 4333, 7110, 18968, 18819, 25119, 25042, 18330, 51723, 105919, 73002, 104532, 155125, 94601, 234792, 102410, 344607, 258735, 394072, 668336, 358809, 661657, 302120, 813726, 198283

Offset

1,1

Links

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

Example

Fifth row is 11, 18, 25, 32, 39, so a(5) = 125.

Mathematica

a[n_] := For[r = 1, True, r++, ro = Table[Prime[n] + k* r, {k, 0, n - 1}]; If[AllTrue[Rest[ro], CompositeQ[#] && ! Divisible[#, Prime[n]] &], Return[ro // Total]]]; Table[a[n], {n, 1, 37}] (* Jean-François Alcover, Sep 26 2017 *)

Prog

(Magma) ap:=function(j) p:=NthPrime(j); a:=1; while true do S:=[ x: x in [p+a..p+a*(j-1) by a] ]; if forall(t) {x: x in S | not IsPrime(x) and x mod p gt 0 } then return [p] cat S; else a+:=1; end if; end while; end function; [ &+ap(j): j in [1..37] ];

Crossrefs

Cf. A095181.

Sequence in context: A254439 A341214 A106159 * A330474 A277501 A277503

Adjacent sequences: A160912 A160913 A160914 * A160916 A160917 A160918

Keyword

nonn

Author

Klaus Brockhaus, May 30 2009

Status

approved