A050716 Inserting a digit '6' between all adjacent digits of k 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

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1001

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

Offset changed by Andrew Howroyd, Aug 14 2024

Status

approved