This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A069795 #5 Mar 13 2019 15:00:22 %S A069795 79,379,613,1013,1979,2713,3613,4817,5413,9413,11113,11579,11813, %T A069795 12437,12479,14713,14813,14879,15313,15937,17239,18617,19037,19979, %U A069795 20071,21379,23279,23813,23917,24337,27091,28279,29437,29537,30091,30781 %N A069795 Prime(n) and prime(n+3) use the same digits. %e A069795 79 is a member as the third next prime 97 uses the same digits. %t A069795 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 A069795 Prime[#]&/@Select[Range[3500],Sort[IntegerDigits[Prime[#]]]==Sort[ IntegerDigits[ Prime[ #+3]]]&] (* _Harvey P. Dale_, Mar 13 2019 *) %Y A069795 Cf. A069793, A069567, A069794, A069796. %K A069795 base,nonn %O A069795 1,1 %A A069795 _Amarnath Murthy_, Apr 09 2002 %E A069795 Edited, corrected and extended by _Robert G. Wilson v_, Apr 12 2002