%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