%I#12 2018年2月13日00:30:27
%S 30,30,30:35,33,39,34,3832231931033332830132931835335,
%电话:355365316323563388303309321327339381393301430583129,
%电话:302314326333434633583623823863939831653122317832063029
%N从3开始的第N个素数的最小非平凡倍数。
%H Robert Israel,n的表,a(n)表示n=1..10000</a>
%p g:=proc(n)局部m,k;
%p代表0 do中的m
%p k:=最大值(2,ceil(3*10^m/n));
%p如果k*n<4*10^m,则返回k*n结束如果
%p端do
%p结束过程:
%p序列(g(i)),i=1..100);#_罗伯特·伊斯雷尔,2018年2月12日
%t f[n_]:=块[{k=2,m=n},而[IntegerDigits[k*m][1]!=3,k++];k*m];表[f[素数[n]],{n,1,55}]
%o(PARI)a(n)={my(k=2,p=质数(n));while(数字(k*p)[1]!=3,k++);k*p;}\\米歇尔·马库斯,2018年2月12日
%Y参见A078285、A078286、A0782808、A07828.9、A078290、A078291、A078262、A07829.3。
%K基础,简单,不,看
%O 1,1号机组
%A _Amarnath Murthy,2002年11月26日
%E由_Robert G.Wilson v_编辑、更正和扩展,2002年11月29日
|