|
Search: id:A130337
|
|
| |
|
| 1, 2, 3, 12, 24, 84, 195, 780, 924, 29259, 71484, 2311539, 23303784, 208260975, 319589424, 383229924
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
A130336(n)=A130335(a(n)); A130335(k)<A130336(n) for k<a(k).
a(17) > 2^31. - Robert G. Wilson v.
|
|
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 *)
|
|
CROSSREFS
|
Adjacent sequences: A130334 A130335 A130336 this_sequence A130338 A130339 A130340
Sequence in context: A024780 A107928 A140494 this_sequence A084728 A099429 A049601
|
|
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
|
|
|
Search completed in 0.002 seconds
|
