%I #15 Dec 18 2022 09:56:16
%S 3,7,311,313,317,9733,9739,10973,10979,31097317,73109731091,
%T 97310973101,97310973103,97310973109733,7310973109731091,
%U 73109731097310973109731097,97310973109731097310973101
%N A nonsense sequence.
%t a={1,3,7,9};
%t a1={0,1,3,7,9};
%t digits=17;
%t b=Flatten[Table[10*Sum[10^m*a1[[1+Mod[n+m,5]]],{m,0,n}]+a,{n,0,digits}]];
%t c=Table[If[PrimeQ[b[[n]]]==True,b[[n]],0],{n,1,Dimensions[b][[1]]}];
%t d=Delete[Union[c],1]
%K nonn,base,less,uned
%O 1,1
%A _Roger L. Bagula_, Jan 05 2004
|