A255729 Distinct-digit numbers that are the concatenation of m and prime(m) for some number m.
12, 23, 35, 47, 613, 819, 923, 1029, 1237, 1547, 1653, 1759, 1967, 2071, 2173, 2489, 2597, 27103, 28107, 35149, 39167, 40173, 45197, 53241, 57269, 58271, 60281, 61283, 69347, 70349, 72359, 79401, 85439, 89461, 90463, 91467, 93487, 96503, 98521, 104569, 108593
Offset: 1
Links
- Zak Seidov, Table of n, a(n) for n = 1..101
Crossrefs
A255596 is a subsequence.
Programs
-
Mathematica
Select[FromDigits[IntegerDigits@ #~Join~IntegerDigits[Prime[#]]] & /@ Range@ 3106, Max@ DigitCount@ # == 1 &] (* Michael De Vlieger, Mar 25 2015 *)
Comments