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

88, 91, 92, 115, 161, 182, 207, 230, 264, 273, 276, 322, 345, 364, 414, 440, 455, 460, 483, 546, 549, 616, 644, 690, 728, 736, 792, 805, 819, 828, 910, 920, 928, 966, 1035, 1092, 1098, 1144, 1288, 1320, 1365, 1380, 1408, 1449, 1456, 1610, 1638, 1656, 1820

Offset: 1

Author

Artur Jasinski, Nov 05 2008

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..7427 (calculated from the b-file at A063938).

Crossrefs

Cf. A063938, A002473.

Programs

Mathematica

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