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
Keywords
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
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