A231900 Omit the 1s from first differences of A084663.

2, 7, 13, 5, 29, 3, 59, 3, 7, 5, 3, 131, 3, 263, 3, 17, 3, 5, 3, 19, 569, 3, 17, 3, 13, 7, 5, 3, 1181, 3, 17, 3, 2381, 3, 11, 3, 5, 3, 7, 4787, 3, 5, 3, 11, 3, 53, 3, 11, 3, 13, 19, 9689, 3, 19379, 3, 7, 5, 3, 137, 3, 13, 38921, 3, 17, 3, 7, 77867, 3, 5, 3

Offset

1,1

Comments

Terms greater than 1 in A134744.

Links

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

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

Mathematica

DeleteCases[Differences[RecurrenceTable[{a[1]==8, a[n]==a[n-1]+GCD[ a[n-1], n]}, a, {n, 100000}]], 1] (* Harvey P. Dale, Apr 12 2016 *)

Prog

(Haskell)
a231900 n = a231900_list !! (n-1)
a231900_list = filter (> 1) a134744_list

Crossrefs

Cf. A137613.

Sequence in context: A230637 A301852 A103886 * A323740 A130710 A145300

Adjacent sequences: A231897 A231898 A231899 * A231901 A231902 A231903

Keyword

nonn

Author

Reinhard Zumkeller, Nov 15 2013

Status

approved