A117533 a(n) = Sum_{k=1..n} A117532(k).

1, 3, 7, 13, 16, 23, 31, 41, 46, 57, 69, 83, 92, 107, 124, 137, 155, 175, 191, 213, 232, 255, 279, 305, 326, 353, 382, 407, 437, 469, 497, 531, 562, 597, 633, 671, 704, 743, 784, 821, 863, 907, 947, 993, 1036, 1083, 1131, 1181, 1226, 1277, 1330, 1379, 1433

Offset

1,2

Comments

a(n) is coprime to n.

Links

Michael De Vlieger, Table of n, a(n) for n = 1..3000

Maple

A117532 := proc(nmax) local a, n, nxt, asu ; a := [1] ; asu := 1 ; while nops(a) < nmax do n := nops(a)+1 ; nxt := 1 ; while nxt in a or gcd(n, asu+nxt) <> 1 do nxt := nxt+1 ; od ; a := [op(a), nxt] ; asu := asu+nxt ; od ; a ; end: A117533 := proc(a117532, n) local i ; add(op(i, a117532), i=1..n) ; end: a117532 := A117532(80) : seq( A117533(a117532, n), n=1..nops(a117532)) ; # R. J. Mathar, May 10 2007

Mathematica

Accumulate@ Fold[Append[#1, Block[{k = 2}, While[Nand[FreeQ[#1, k], CoprimeQ[Total@ #1 + k, #2]], k++]; k]] &, {1}, Range[2, 53]] (* Michael De Vlieger, Sep 30 2017 *)

Crossrefs

Cf. A117532, A117534.

Sequence in context: A060657 A192148 A151875 * A065057 A363636 A100807

Adjacent sequences: A117530 A117531 A117532 * A117534 A117535 A117536

Keyword

nonn

Author

Leroy Quet, Mar 26 2006

Extensions

More terms from R. J. Mathar, May 10 2007

Status

approved