|
%I
%S 179,1091,1213,1279,3313,3637,4273,6637,8237,8293,8537,9137,9613,
%T 10937,12071,14071,15137,19237,19937,20639,21013,22817,22937,24091,
%U 24317,26713,28439,29137,29837,31379,32537,33037,33071,35339,36913,37117
%N Prime(n) and prime(n+4) use the same digits.
%e 6637 is a member as the fourth next prime 6673 uses the same digits.
%t p = {0}; q = {1}; r = {1}; s = {1}; t = {1}; Do[ If[p == t, Print[ Prime[n - 5]]]; p = q; q = r; r = s; s = t; t = Sort[ IntegerDigits[ Prime[n]]], {n, 5 10^3}]
%Y Cf. A069793, A069567, A069794, A069795.
%K base,nonn
%O 1,1
%A Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 09 2002
%E Edited, corrected and extended by _Robert G. Wilson v_, Apr 12 2002
|
