login
Records in A218344.
1

%I #12 Jun 05 2022 08:31:46

%S 1,2,3,4,5,6,12,20,30,42,46,48,84,108,114,126,130,144,166,182,192,212,

%T 246,258,270,288,294,310,406,480,494,504,534,586

%N Records in A218344.

%F a(n) = A218344(A354740(n)). - _Amiram Eldar_, Jun 05 2022

%t t = {1}; For[k = 6, k < 100000, k++, If[! PrimeQ[k], Mult = 1; While[! PrimeQ[k*Mult + 1], Mult = Mult + 1]; If[Mult > t[[-1]], AppendTo[t, Mult]]]]; t

%Y Cf. A218344, A354740.

%K nonn,more

%O 1,2

%A _William J. Keith_, Oct 26 2012

%E a(21)-a(34) from _Amiram Eldar_, Jun 05 2022