|
| |
|
|
A130336
|
|
Record values in A130335.
|
|
2
| |
|
|
1, 2, 7, 10, 13, 22, 31, 37, 58, 79, 82, 95, 109, 118, 157, 178
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| a(n)=A130335(A130337(n)); A130335(k)<a(n) for k < A130337(k).
|
|
|
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}] (* from Robert G. Wilson v (rgwv(at)rgwv.com), Jun 03 2007 *) - Robert G. Wilson v (rgwv(at)rgwv.com), Jun 03 2007
|
|
|
CROSSREFS
| Sequence in context: A026364 A203621 A003158 * A085303 A022886 A047524
Adjacent sequences: A130333 A130334 A130335 * A130337 A130338 A130339
|
|
|
KEYWORD
| nonn,more
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), May 28 2007
|
|
|
EXTENSIONS
| a(13)-a(16) from Robert G. Wilson v (rgwv(at)rgwv.com), Jun 03 2007
|
| |
|
|
