A050716 Inserting a digit '6' between all adjacent digits of n makes a prime.

13, 17, 23, 29, 37, 41, 43, 47, 53, 59, 61, 71, 79, 83, 97, 101, 103, 107, 109, 127, 131, 133, 139, 151, 157, 161, 173, 193, 211, 221, 223, 227, 251, 269, 281, 283, 301, 307, 311, 323, 329, 347, 349, 353, 371, 377, 401, 421, 457, 463, 479, 481, 487, 517, 523

Offset

0,1

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Example

481 becomes 4(6)8(6)1 becomes prime 46861.

Mathematica

Select[Range[10, 600], PrimeQ[FromDigits[Riffle[IntegerDigits[#], 6]]]&] (* Harvey P. Dale, Aug 26 2013 *)

Crossrefs

Cf. A050674, A050711-A050719.

Sequence in context: A274321 A316603 A235914 * A217046 A141076 A092146

Adjacent sequences: A050713 A050714 A050715 * A050717 A050718 A050719

Keyword

nonn,base

Author

Patrick De Geest, Aug 15 1999

Extensions

Definition clarified by Harvey P. Dale, Aug 26 2013

Status

approved