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,1

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

Mathematica

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

Prog

(Perl) use ntheory ":all"; forprimes { say unless ramanujan_tau($_) % 13; } 1e4; # Dana Jacobsen, Sep 05 2015
(PARI) isok(p) = isprime(p) && !(ramanujantau(p) % 13); \\ Michel Marcus, Mar 28 2021

Crossrefs

Cf. A038542, A076847.

Sequence in context: A057737 A130704 A335813 * A145953 A154303 A128340

Adjacent sequences: A038540 A038541 A038542 * A038544 A038545 A038546

Keyword

nonn

Author

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

Status

approved