A134743 First differences of A134736.

1, 3, 1, 5, 3, 1, 1, 1, 1, 11, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 23, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 47, 3, 1, 5, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 101, 3, 1, 1

Offset

1,2

References

Eric S. Rowland, A simple prime-generating recurrence, Abstracts Amer. Math. Soc., 29 (No. 1, 2008), p. 50 (Abstract 1035-11-986).

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Eric S. Rowland, A natural prime-generating recurrence, arXiv:0710.3217 [math.NT], 2007-2008.

Formula

a(n) = A132199(n), n>2. [R. J. Mathar, Dec 13 2008]

Mathematica

b[1] = 5; b[n_] := b[n] = b[n-1] + GCD[n, b[n-1]];
Array[b, 104] // Differences (* Jean-François Alcover, Oct 01 2018 *)

Prog

(Haskell)
a134743 n = a134743_list !! (n-1)
a134743_list = zipWith (-) (tail a134736_list) a134736_list
-- Reinhard Zumkeller, Nov 15 2013

Crossrefs

See A106108 for other cross-references.

Cf. A134734, A134744.

Sequence in context: A184343 A099548 A351556 * A099547 A137758 A340530

Adjacent sequences: A134740 A134741 A134742 * A134744 A134745 A134746

Keyword

nonn

Author

N. J. A. Sloane, Jan 28 2008

Status

approved