A198047 Primes remaining primes under map 3<=>5 (interchange of decimal digits 3 and 5).

2351, 2531, 3251, 3257, 3457, 3547, 3581, 3659, 5231, 5237, 5347, 5381, 5437, 5639, 13151, 13159, 13577, 13591, 13751, 13757, 13759, 15131, 15139, 15377, 15391, 15731, 15737, 15739, 17359, 17539, 23057, 23357, 23459, 23509, 23537, 23549, 23567, 25037, 25309

Offset: 1

Author

Zak Seidov, Oct 20 2011

Keywords

• nonn
• base

Comments

Only primes containing at least one "3" and one "5" are considered.

Inspired by history (told by VIA himself) that most often mistakes made by V. I. Arnold were caused by mixing 3's and 5's (and also 2's and 9's) in the lengthy calculations by hand.

Examples

			2351,2531 both primes; 3251, 5231 both primes.
		

Links

• V. I. Arnold, Experimental observation of mathematical facts (in Russian)

Programs

Mathematica

p = 53; Reap[Do[id = IntegerDigits[p]; If[Count[id, 3] > 0 && Count[id, 5] > 0 && PrimeQ[FromDigits[(id /. {3 -> a, 5 -> 3}) /. {a -> 5}]], Sow[p]]; p = NextPrime[p], {10^4}]][[2, 1]]