|
%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
|
