%I #5 Mar 13 2019 15:00:22
%S 79,379,613,1013,1979,2713,3613,4817,5413,9413,11113,11579,11813,
%T 12437,12479,14713,14813,14879,15313,15937,17239,18617,19037,19979,
%U 20071,21379,23279,23813,23917,24337,27091,28279,29437,29537,30091,30781
%N Prime(n) and prime(n+3) use the same digits.
%e 79 is a member as the third next prime 97 uses the same digits.
%t p = {0}; q = {1}; r = {1}; s = {1}; Do[ If[p == s, Print[ Prime[n - 4]]]; p = q; q = r; r = s; s = Sort[ IntegerDigits[ Prime[n]]], {n, 3 10^3}]
%t Prime[#]&/@Select[Range[3500],Sort[IntegerDigits[Prime[#]]]==Sort[ IntegerDigits[ Prime[ #+3]]]&] (* _Harvey P. Dale_, Mar 13 2019 *)
%Y Cf. A069793, A069567, A069794, A069796.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Apr 09 2002
%E Edited, corrected and extended by _Robert G. Wilson v_, Apr 12 2002
|