%I#8 2019年1月11日09:58:12
%S 1,2,3,5,4,7,9,11,14,10,18,12,21,23,26,29,17,33,35,28,39,41,42,48,50,
%电话:51,53,45,43,63,46,68,69,74,38,78,66,83,86,89,90,95,59,98,85,49111,
%U 113,97,88119,71125128131134135138,93141146109155,84158165145单位
%N奇数素数在A137576中首次出现的位置。
%C a(n)<=(p_n-1)/2,其中p_n是第n个奇素数(A065091)。
%t项=100;
%t a137576[n_]:=模[{t},(t=乘法顺序[2,2 n+1])*除数和[2 n+1,EulerPhi[#]/乘法顺序[2],#]&]-t+1];
%t A137576=阵列[A137576,3项];
%t第一位置[A137576,#][[1]和/@Prime[Range[2,terms+1]](*Jean-François Alcover_,2019年1月11日*)
%Y参考A137576,A065091。
%K nonn公司
%O 1,2号机组
%A_Vladimir Shevelev,2008年5月10日
%E由雷·钱德勒修正和扩展,2008年5月19日
|