The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A109992 Numbers n such that the string 99n is prime. 1

%I

%S 1,7,23,29,31,41,49,67,73,103,109,119,131,133,137,139,149,173,181,191,

%T 223,233,241,251,257,259,277,289,317,347,349,367,371,377,391,397,401,

%U 409,431,439,469,487,497,523,527,529,551,559,563,571,577,581,607,611

%N Numbers n such that the string 99n is prime.

%H Vincenzo Librandi, <a href="/A109992/b109992.txt">Table of n, a(n) for n = 1..2500</a>

%e If n=103 then 99n = 99103 (prime).

%p a:= proc(n) local k; for k from 1 +`if`(n=1, 0, a(n-1))

%p while not isprime(parse(""||99||k)) do od; a(n):=k

%p end:

%p seq(a(n), n=1..100); # _Alois P. Heinz_, Jul 30 2014

%t plQ[n_] := Module[{idn = IntegerDigits[n]}, PrimeQ[FromDigits[PadLeft[idn, Length[idn] + 2, 9]]]]; Select[Range[700], plQ] (* _Harvey P. Dale_, Jan 18 2011 *)

%t Select[Range[700], PrimeQ[99 10^IntegerLength[#] + #] &] (* _Vincenzo Librandi_, Jul 30 2014 *)

%o (MAGMA) [n: n in [1..600] | IsPrime(Seqint(Intseq(n) cat [9, 9])) ]; // _Vincenzo Librandi_, Jul 30 2014

%K nonn,base

%O 1,2

%A _Parthasarathy Nambi_, Sep 01 2005

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 1 10:37 EDT 2021. Contains 346385 sequences. (Running on oeis4.)