A104719 Concatenations of pairs of primes that differ by 10.
313, 717, 1323, 1929, 3141, 3747, 4353, 6171, 7383, 7989, 97107, 103113, 127137, 139149, 157167, 163173, 181191, 223233, 229239, 241251, 271281, 283293, 307317, 337347, 349359, 373383, 379389, 409419, 421431, 433443, 439449, 457467, 499509
Offset: 1
Examples
Primes 3 and 13 differ by 10.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
FromDigits[Join[IntegerDigits[#],IntegerDigits[#+10]]]&/@Select[ Prime[ Range[ 100]], PrimeQ[ #+10]&] (* Harvey P. Dale, Jun 14 2015 *)
Comments