1,1

a(n) is the smallest m such that m < 10^n and all six numbers 10^n + m, (Mod[m, 3]+2)*10^n + m, 4*10^n + m, (Mod[m, 3]+5)*10^n + m, 7*10^n + m & (Mod[m, 3]+8)*10^n + m are primes.

Carlos Rivera in Puzzle 245 of www.primepuzzles.net wrote "if the Faride's results ( a(n) for n=1,...,24 ) are plotted in Excel and a trend 'potential' function is asked, we obtain that a(n) is approximately equal to 0.5*n^6; this means that for n=999 a(n)=5*10^17, approximately." Since 10^n+a(n) is prime, for each n a(n)=0 (mod 3) or a(n)=1 (mod 3).

Carlos Rivera, Puzzle 245. As 13

a[n_] := (For[m=1, !PrimeQ[10^n+2m-1]||!PrimeQ[(Mod[2m-1, 3]+2)10^n+2m-1]||! PrimeQ[4*10^n+2m-1]||!PrimeQ[(Mod[2m-1, 3]+5)10^n+2m-1]||!PrimeQ [7*10^n+2m-1]||!PrimeQ[(Mod[2m-1, 3]+8)10^n+2m-1], m++ ];2m-1)

a(6)=25111 because all the six numbers 1025111, 3025111, 4025111, 6025111, 7025111, 9025111 are primes and 25111 is the smallest number with this property.

a[n_] := (For[m=1, !PrimeQ[10^n+2m-1]||!PrimeQ[(Mod[2m-1, 3]+2)10^n+2m-1]||! PrimeQ[4*10^n+2m-1]||!PrimeQ[(Mod[2m-1, 3]+5)10^n+2m-1]||!PrimeQ [7*10^n+2m-1]||!PrimeQ[(Mod[2m-1, 3]+8)10^n+2m-1], m++ ]; 2m-1); Do[Print[a[n]], {n, 32}]

Cf. A003617, A033873.

Cf. A091199.

Sequence in context: A132489 A051227 A122548 this_sequence A032696 A131466 A060483

Adjacent sequences: A078725 A078726 A078727 this_sequence A078729 A078730 A078731

nonn

Farideh Firoozbakht (f.firoozbakht(AT)sci.ui.ac.ir), Dec 26 2003