|
%I #18 Apr 14 2021 03:03:57
%S 2,3,5,7,11,13,17,19,23,29,31,41,47,53,59,71,79,83,89,97,107,127,137,
%T 139,149,167,179,191,199,223,229,239,251,269,293,349,359,367,383,419,
%U 431,449,479,499,503,587,593,599,643,647,719,809,827,839,863,881,919
%N Primes p such that Ramanujan number tau(p) is divisible by p+1.
%H Amiram Eldar, <a href="/A299171/b299171.txt">Table of n, a(n) for n = 1..900</a>
%t Select[Range[1000], PrimeQ[#] && Divisible[RamanujanTau[#], #+1] &] (* _Amiram Eldar_, Apr 14 2021 *)
%o (PARI) isok(p) = isprime(p) && !(ramanujantau(p) % (p+1)); \\ _Michel Marcus_, Feb 05 2018
%Y Cf. A000594, A007659, A299157, A299163, A299172.
%K nonn
%O 1,1
%A _Seiichi Manyama_, Feb 04 2018
|
