Search: id:A036913
Results 1-1 of 1 results found.
%I A036913
%S A036913 2,6,12,18,30,42,60,66,90,120,126,150,210,240,270,330,420,462,510,630,
%T A036913 660,690,840,870,1050,1260,1320,1470,1680,1890,2310,2730,2940,3150,
%U A036913 3570,3990,4620,4830,5460,5610,5670,6090,6930,7140,7350,8190,9240,9660
%N A036913 Sparsely totient numbers; numbers n such that m > n implies phi(m) >
phi(n).
%C A036913 The paper by Masser and Shiu lists 150 terms of this sequence less than
10^6. For odd prime p, they show that p# and p*p# are in this sequence,
where p# denotes the primorial (A002110). - T. D. Noe (noe(AT)sspectra.com),
Jun 14 2006
%D A036913 Glyn Harman, On sparsely totient numbers, Glasgow Math. J. 33 (1991),
349-358.
%H A036913 T. D. Noe, Table of n, a(n) for n = 1..302
%H A036913 Roger C. Baker and Glyn Harman,
Sparsely totient numbers, Annales de la faculte des sciences
de Toulouse Ser. 6, 5 no. 2 (1996), 183-190.
%H A036913 D. W. Masser and P. Shiu, On sparsely totient numbers
a>, Pacific J. Math. 121, no. 2 (1986), 407-426.
%e A036913 This sequence contains 60 because of all the numbers whose totient is
16, 60 is the largest such number. [From Graeme McRae (g_m(AT)mcraefamily.com),
Feb 12 2009]
%t A036913 nn=10000; lastN=Table[0,{nn}]; Do[e=EulerPhi[n]; If[e<=nn, lastN[[e]]=n],
{n,10nn}]; mx=0; lst={}; Do[If[lastN[[i]]>mx, mx=lastN[[i]]; AppendTo[lst,
mx]], {i,Length[lastN]}]; lst - T. D. Noe (noe(AT)sspectra.com),
Jun 14 2006
%Y A036913 Cf. A097942 (highly totient numbers). Records in A006511 (see also A132154).
%Y A036913 Sequence in context: A159793 A006511 A113274 this_sequence A117311 A125024
A053660
%Y A036913 Adjacent sequences: A036910 A036911 A036912 this_sequence A036914 A036915
A036916
%K A036913 nonn
%O A036913 1,1
%A A036913 David W. Wilson (davidwwilson(AT)comcast.net)
Search completed in 0.001 seconds