A114653 A114652(n+1) - A114652(n).

1, 2, 1, 3, 2, 6, 2, 7, 1, 10, 3, 10, 4, 8, 7, 15, 7, 18, 6, 13, 9, 22, 8, 20, 8, 19, 9, 28, 6, 29, 11, 22, 11, 26, 10, 34, 13, 25, 11, 40, 10, 42, 16, 24, 15, 45, 13, 43, 12, 31, 18, 50, 16, 42, 19, 38, 23, 57, 12, 58, 24, 38, 24, 46, 18, 65, 24, 43, 15, 68, 19, 71, 28, 37, 26, 66

Offset

1,2

Comments

First occurrence of n: 1, 2, 4, 13, a(5)=??, 6, 8, 14, 21, 10, 31, 49, 20, a(14)=??, 16, 43, a(17)=??, 18, 26, 24, ...,.

Links

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

Example

Among the first 5 terms of A114652 (1,2,4,5,8) there are 2 terms (1, 5) which are coprime to 6. So a(6) = 2.

Mathematica

a[1] = 1; a[n_] := a[n] = a[n - 1] + Count[GCD[Array[a, n - 1], n], 1]; b = Array[a, 80]; Drop[b, 1] - Drop[b, -1] (* Robert G. Wilson v *)

Crossrefs

Cf. A114652.

Sequence in context: A073711 A071690 A319179 * A069481 A098911 A052305

Adjacent sequences: A114650 A114651 A114652 * A114654 A114655 A114656

Keyword

nonn

Author

Leroy Quet, Dec 21 2005

Extensions

Extended by Ray Chandler and Robert G. Wilson v, Dec 23 2005

Status

approved