|
%I #10 Aug 13 2015 12:39:30
%S 67,97,127,151,181,229,241,307,349,367,373,409,433,439,487,571,601,
%T 607,643,727,739,751,769,823,853,937,967,1009,1021,1051,1063,1087,
%U 1249,1297,1423,1429,1447,1489,1549,1567,1579,1597,1609,1663,1693,1777,1783,1789,1861,1867,1987,1999,2083,2131
%N Ramanujan primes of the form 3*k + 1.
%C Ramanujan primes p such that tau(p) == 2 (mod 3) where tau(x) is the Ramanujan tau function (A000594).
%C Intersection of A002476 and A104272.
%H Dana Jacobsen, <a href="/A232634/b232634.txt">Table of n, a(n) for n = 1..1000</a>
%o (Perl) use ntheory ":all"; for $p (@{ramanujan_primes(1e6)}) { say ++$i," $p" unless ($p-1) % 3 } # - _Dana Jacobsen_, Aug 13 2015
%o (Perl) use ntheory ":all"; for $p (@{ramanujan_primes(1e6)}) { say ++$i," $p" if (ramanujan_tau($p) % 3) == 2; } # Much slower alternate method - _Dana Jacobsen_, Aug 13 2015
%K nonn
%O 1,1
%A _Irina Gerasimova_, Nov 27 2013
%E Corrected by _Dana Jacobsen_, Aug 13 2015.
|
