A266214 Numbers n that are not coprime to the numerator of zeta(2*n)/(Pi^(2*n)).
14, 22, 26, 28, 30, 38, 42, 44, 46, 50, 52, 54, 56, 58, 60, 62, 70, 74, 76, 78, 82, 84, 86, 88, 90, 92, 94, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126, 134, 138, 140, 142, 146, 148, 150, 152, 154, 156, 158, 162, 164, 166, 168, 170
Offset: 1
Links
- Chris Boyd, Table of n, a(n) for n = 1..10000
- C. Boyd in reply to R. Israel, A046988 query, SeqFan list, Dec 22 2015.
Programs
-
Maple
select(n -> igcd(n,numer(2^(2*n-1)*bernoulli(2*n)/(2*n)!)) > 1), [$1..1000]);
-
Mathematica
Select[Range@ 170, ! CoprimeQ[#, Numerator[Zeta[2 #]/Pi^(2 #)]] &] (* Michael De Vlieger, Dec 24 2015 *)
-
PARI
test(n) = if(gcd(numerator(2^(2*n-1)*bernfrac(2*n)/(2*n)!),n)!=1,1,0) for(i=1,200,if(test(i),print1(i,", ")))
Comments