A038543 Primes p such that Ramanujan function tau(p) is divisible by 13.

7, 11, 157, 179, 229, 281, 461, 563, 617, 757, 839, 911, 1049, 1129, 1237, 1259, 1489, 1741, 2129, 2239, 2281, 2423, 2477, 2699, 2843, 2963, 3307, 3347, 3527, 3643, 3659, 3701, 3943, 4057, 4079, 4099, 4129, 4523, 4789, 4799, 5179, 5347

Offset: 1

Author

Paolo Dominici (pl.dm(AT)libero.it)

Keywords

• nonn

References

• Robert A. Rankin, Ramanujan's tau-function and its generalizations, in: G. E. Andrews et al. (eds.), Ramanujan Revisited, Proceedings of the Centenary Conference, University of Illinois at Urbana-Champaign, June 1-5, 1987, Academic Press, 1988, pp. 245-268.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A038542, A076847.

Programs

Mathematica

Select[Range[5000], PrimeQ[#] && Divisible[RamanujanTau[#], 13] &] (* Amiram Eldar, Mar 28 2021 *)

PARI

isok(p) = isprime(p) && !(ramanujantau(p) % 13); \\ Michel Marcus, Mar 28 2021

Perl

use ntheory ":all"; forprimes { say unless ramanujan_tau($) % 13; } 1e4; # _Dana Jacobsen, Sep 05 2015