login
A130337
Where record values occur in A130335.
2
1, 2, 3, 12, 24, 84, 195, 780, 924, 29259, 71484, 2311539, 23303784, 208260975, 319589424, 383229924, 11962377504, 178523171904
OFFSET
1,2
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
Sequence in context: A302545 A320173 A107928 * A293697 A084728 A099429
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