A130337 Where record values occur in A130335.

1, 2, 3, 12, 24, 84, 195, 780, 924, 29259, 71484, 2311539, 23303784, 208260975, 319589424, 383229924, 11962377504, 178523171904

Offset

1,2

Links

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

Formula

A130336(n) = A130335(a(n)).

A130335(k) < A130336(n) for k<a(n).

Mathematica

f[n_] := Block[{k = 1}, While[ GCD[n(n + 1)/2, (n + k)(n + k + 1)/2] != 1, k++ ]; k]; t = Table[0, {1000}]; Do[a = f@n; If[a < 1001 && t[[a]] == 0, t[[a]] = n; Print[{a, n}], If[a > 1000, Print[{"Over 1000", n}]]], {n, 2^31 - 1}] (* Robert G. Wilson v, Jun 03 2007 *)

Crossrefs

Cf. A130335, A130336.

Sequence in context: A302545 A320173 A107928 * A293697 A084728 A099429

Adjacent sequences: A130334 A130335 A130336 * A130338 A130339 A130340

Keyword

nonn,more

Author

Reinhard Zumkeller, May 28 2007

Extensions

a(13)-a(16) from Robert G. Wilson v, Jun 03 2007

a(17) from Chai Wah Wu, Sep 16 2021

a(18) from Chai Wah Wu, Sep 23 2021

Status

approved