|
%I #19 Jul 23 2021 02:24:33
%S 0,9,42,180,285,414,567,945,1109,1419,2310,2655,3024,4275,4740,5229,
%T 5742,8034,10005,10710,12192,14595,15444,16317,18135,19080,20049,
%U 21042,22306,26367,28665,29850,34830,36135,38817,43020,45942,56925,58590,61992,65490
%N Numbers k such that phi(x) = 12*k+2 is solvable, where phi is Euler's totient A000010.
%C The associated values in A002202 are 2, 110, 506, 2162, 3422, ....
%H Giovanni Resta, <a href="/A289364/b289364.txt">Table of n, a(n) for n = 1..10000</a>
%H J. B. Dence and T. P. Dence, <a href="http://www.jstor.org/stable/2687031">A surprise regarding the equation phi(x)=2*(6*n+1)</a>, Coll. Math. J. 26 (4) (1995) 297-301.
%F {k: 12*k+2 in A002202}.
%t phibnd[n_] := n/(Exp[EulerGamma] Log[Log[n]] + 3/Log[Log[n]]); up = 66000; m = 10^4; While[phibnd[m] <= 12 up + 2, m += 10^4]; Union@ Select[ (EulerPhi@ Range @ m - 2)/12, IntegerQ[#] && # <= up &] (* _Giovanni Resta_, Jul 04 2017 *)
%Y Cf. A000010, A002202.
%K nonn
%O 1,2
%A _R. J. Mathar_, Jul 04 2017
%E More terms from _Giovanni Resta_, Jul 04 2017
|
