login
Primes p such that Ramanujan number tau(p) is divisible by p+1.
3

%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