A090311 Concatenation of two distinct primes p and q, p < q.
23, 25, 35, 27, 37, 57, 211, 311, 511, 711, 213, 313, 513, 713, 1113, 217, 317, 517, 717, 1117, 1317, 219, 319, 519, 719, 1119, 1319, 1719
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
FromDigits[Flatten[IntegerDigits/@#]]&/@Flatten[Table[Join[{Prime[c]},{Prime[ n]}],{n,10},{c,n-1}],1](* Harvey P. Dale, Nov 27 2019 *)
Comments