login
Numbers k which divide tau(k) and are not 7-smooth (where tau(k) = A000594(k) is Ramanujan's tau function).
1

%I #7 Mar 14 2020 05:00:01

%S 88,91,92,115,161,182,207,230,264,273,276,322,345,364,414,440,455,460,

%T 483,546,549,616,644,690,728,736,792,805,819,828,910,920,928,966,1035,

%U 1092,1098,1144,1288,1320,1365,1380,1408,1449,1456,1610,1638,1656,1820

%N Numbers k which divide tau(k) and are not 7-smooth (where tau(k) = A000594(k) is Ramanujan's tau function).

%H Amiram Eldar, <a href="/A147317/b147317.txt">Table of n, a(n) for n = 1..7427</a> (calculated from the b-file at A063938).

%t aa = {}; Do[If[Mod[RamanujanTau[n], n] == 0 && EulerPhi[210 n] != 48 n, AppendTo[aa, n]], {n, 1, 2000}]; aa

%Y Cf. A063938, A002473.

%K nonn

%O 1,1

%A _Artur Jasinski_, Nov 05 2008