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 A134766 #6 May 08 2025 08:54:50
%S A134766 5,139,163,193,199,241,283,313,1019,1319,1367,1523,1759,2179,2251,
%T A134766 2539,2767,2803,2851,2927,3011,3163,3167,3191,3319,3323,3347,3491,
%U A134766 3539,3547,3559,3571,3607,3691,11261,11471,11801,11831,12281,12641,13121,13721
%N A134766 Primes among variant of permutational numbers A134750.
%C A134766 For indices where primes occurs in A134750, see A134767.
%t A134766 k = {}; a = {}; b = {}; Do[AppendTo[b, n]; w = Permutations[b]; Do[j = FromDigits[1 + w[[m]], n + 1]; AppendTo[a, j], {m, 1, Length[w]}], {n, 0, 6}]; Do[If[PrimeQ[a[[n]]], AppendTo[k, a[[n]]]], {n, 1, Length[a]}]; k
%Y A134766 Cf. A134640, A134641, A134750, A134767.
%K A134766 nonn
%O A134766 1,1
%A A134766 _Artur Jasinski_, Nov 10 2007