|
%I #21 Sep 23 2021 11:13:16
%S 1,2,3,12,24,84,195,780,924,29259,71484,2311539,23303784,208260975,
%T 319589424,383229924,11962377504,178523171904
%N Where record values occur in A130335.
%F A130336(n) = A130335(a(n)).
%F A130335(k) < A130336(n) for k<a(n).
%t 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 *)
%Y Cf. A130335, A130336.
%K nonn,more
%O 1,2
%A _Reinhard Zumkeller_, May 28 2007
%E a(13)-a(16) from _Robert G. Wilson v_, Jun 03 2007
%E a(17) from _Chai Wah Wu_, Sep 16 2021
%E a(18) from _Chai Wah Wu_, Sep 23 2021
|
