This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A038543 #16 Mar 28 2021 07:03:09 %S A038543 7,11,157,179,229,281,461,563,617,757,839,911,1049,1129,1237,1259, %T A038543 1489,1741,2129,2239,2281,2423,2477,2699,2843,2963,3307,3347,3527, %U A038543 3643,3659,3701,3943,4057,4079,4099,4129,4523,4789,4799,5179,5347 %N A038543 Primes p such that Ramanujan function tau(p) is divisible by 13. %D A038543 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. %H A038543 Amiram Eldar, <a href="/A038543/b038543.txt">Table of n, a(n) for n = 1..10000</a> %t A038543 Select[Range[5000], PrimeQ[#] && Divisible[RamanujanTau[#], 13] &] (* _Amiram Eldar_, Mar 28 2021 *) %o A038543 (Perl) use ntheory ":all"; forprimes { say unless ramanujan_tau($_) % 13; } 1e4; # _Dana Jacobsen_, Sep 05 2015 %o A038543 (PARI) isok(p) = isprime(p) && !(ramanujantau(p) % 13); \\ _Michel Marcus_, Mar 28 2021 %Y A038543 Cf. A038542, A076847. %K A038543 nonn %O A038543 1,1 %A A038543 Paolo Dominici (pl.dm(AT)libero.it)