login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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; text; internal format)
OFFSET

1,2

COMMENTS

a(n) = A130335(A130337(n)); A130335(k) < a(n) for k < A130337(k).

LINKS

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

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: A203621 A297832 A003158 * A303741 A085303 A304799

Adjacent sequences:  A130333 A130334 A130335 * A130337 A130338 A130339

KEYWORD

nonn,more

AUTHOR

Reinhard Zumkeller, May 28 2007

EXTENSIONS

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

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 18 07:10 EDT 2019. Contains 325134 sequences. (Running on oeis4.)