◆追加パラメーター無し

Table[Product[C(0,C(0,((n-a)^(2a-2)mod(2a-1)))),{a,3,50}],{n,170,200}]

奇数を{n,170,200}の範囲で出力すると、

340～400 の範囲内の
素数の位置がわかる

{0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0,
1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0}

337, {347, 349, 353, 359, 367, 373, 379,
383, 389, 397} (素数10個)

337,(339,341,343,345),347,349,(351),
353,(355,357),359,(361,363,365),367,
(369,371),373,(375,377),379,(381),383,
(385,387),389,(391,393,395),397,399


()内は素数砂漠
0の個数と完全一致