

A130336


Record values in A130335.


2



1, 2, 7, 10, 13, 22, 31, 37, 58, 79, 82, 94, 109, 118, 157, 178, 193, 214
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS



FORMULA



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



KEYWORD

nonn,more


AUTHOR



EXTENSIONS

Added a(17) and corrected a(12) by Chai Wah Wu, Sep 16 2021


STATUS

approved



