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

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, 13, 11, 96, 6, 18, 6, 12, 47, 16, 46, 53, 75, 42, 56, 8, 55, 34, 115, 19, 73, 34, 20, 23, 75, 70, 6, 15, 200, 56, 79, 94, 159, 35, 18, 5, 43, 39, 23, 51, 127, 62, 10

Offset

1,2

Links

Pierre CAMI, Table of n, a(n) for n = 1..2000

Mathematica

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

Prog

PFGW64 and SCRIPTIFY from Primeform Group
Command : pfgw64 -f in.txt
in.txt file :
SCRIPT
DIM nn, 0
DIM kk
DIMS tt
OPENFILEOUT myfile, a(n).txt
LABEL loopn
SET nn, nn+1
IF nn>2000 THEN END
SET kk, 0
LABEL loopk
SET kk, kk+1
SETS tt, %d, %d\,; nn; kk
PRP kk*30^nn-1, tt
IF ISPRP THEN GOTO b
IF ISPRIME THEN GOTO b
GOTO loopk
LABEL b
WRITE myfile, tt
GOTO loopn

Crossrefs

Sequence in context: A333318 A185261 A263354 * A010469 A136248 A175653

Adjacent sequences: A212479 A212480 A212481 * A212483 A212484 A212485

Keyword

nonn

Author

Pierre CAMI, Jun 02 2012

Status

approved