login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A023357 Numbers n such that n remains prime through 5 iterations of the function f(x) = 10x + 9. 1
13, 293, 6089, 12823, 37967, 40949, 121687, 192037, 243487, 379679, 409499, 471841, 1006193, 1217131, 1397311, 1438793, 1503613, 1541063, 1754591, 2058629, 2088421, 2346791, 2360357, 2428243, 2458609, 2621527, 2646167, 2721053, 3223247, 3280003 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

n, 10n + 9, 100n + 99, 1000n + 999, 10000n + 9999 and 100000n + 99999 are primes. - Vincenzo Librandi, Aug 05 2010

LINKS

John Cerkan, Table of n, a(n) for n = 1..10000

FORMULA

a(n) == 13 mod 14. - John Cerkan, Aug 26 2016

EXAMPLE

13 * 10 + 9 = 139, which is prime.

139 * 10 + 9 = 1399, which is also prime.

1399 * 10 + 9 = 13999, which is also prime.

13999 * 10 + 9 = 139999, which is also prime.

139999 * 10 + 9 = 1399999, which is also prime.

1399999 * 10 + 9 = 13999999 = 13 * 503 * 2141. This is the sixth iteration, but only five iterations are needed for 13 to be in the sequence.

17 * 10 + 9 = 179, which is prime.

179 * 10 + 9 = 1799 = 7 * 257. As this falls short of the five iterations needed, 17 is not in the sequence.

MATHEMATICA

Select[Prime@ Range[10^6], Times @@ Boole@ PrimeQ@ NestList[10 # + 9 &, #, 5] > 0 &] (* Michael De Vlieger, Aug 26 2016 *)

(* The following program uses the AllTrue function from Mathematica version 10 *) Select[Prime[Range[250000]], AllTrue[Rest[NestList[10# + 9 &, #, 5]], PrimeQ]&] (* Harvey P. Dale, Jul 31 2018 *)

PROG

(MAGMA) [n: n in [1..19000000] | IsPrime(n) and IsPrime(10*n+9) and IsPrime(100*n+99) and IsPrime(1000*n+999) and IsPrime(10000*n+9999) and IsPrime(100000*n+99999)] // Vincenzo Librandi, Aug 05 2010

(PARI) is(n)=isprime(n) && isprime(10*n+9) && isprime(100*n+99) && isprime(1000*n+999) && isprime(10000*n+9999) && isprime(100000*n+99999) \\ Charles R Greathouse IV, Jul 28 2016

CROSSREFS

Sequence in context: A228753 A249864 A246462 * A165218 A317632 A076130

Adjacent sequences:  A023354 A023355 A023356 * A023358 A023359 A023360

KEYWORD

nonn

AUTHOR

David W. Wilson

STATUS

approved

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 18 19:48 EST 2019. Contains 329288 sequences. (Running on oeis4.)