A212482 - OEIS

%I #18 Jun 06 2012 15:01:25

%S 1,3,4,6,3,18,8,6,3,24,14,3,6,18,6,13,18,19,12,7,5,6,12,5,2,8,24,48,

%T 13,11,96,6,18,6,12,47,16,46,53,75,42,56,8,55,34,115,19,73,34,20,23,

%U 75,70,6,15,200,56,79,94,159,35,18,5,43,39,23,51,127,62,10

%N Least k such that k*30^n-1 is prime.

%H Pierre CAMI, <a href="/A212482/b212482.txt">Table of n, a(n) for n = 1..2000</a>

%t Table[k = 1; While[! PrimeQ[k*30^n - 1], k++]; k, {n, 100}] (* _T. D. Noe_, Jun 06 2012 *)

%o PFGW64 and SCRIPTIFY from Primeform Group

%o Command : pfgw64 -f in.txt

%o in.txt file :

%o SCRIPT

%o DIM nn,0

%o DIM kk

%o DIMS tt

%o OPENFILEOUT myfile,a(n).txt

%o LABEL loopn

%o SET nn,nn+1

%o IF nn>2000 THEN END

%o SET kk,0

%o LABEL loopk

%o SET kk,kk+1

%o SETS tt,%d,%d\,;nn;kk

%o PRP kk*30^nn-1,tt

%o IF ISPRP THEN GOTO b

%o IF ISPRIME THEN GOTO b

%o GOTO loopk

%o LABEL b

%o WRITE myfile,tt

%o GOTO loopn

%K nonn

%O 1,2

%A _Pierre CAMI_, Jun 02 2012