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 A066253 #12 Mar 19 2025 08:35:57
%S A066253 5,3,7,1,8,2,6,4,9,10,11,12,13,18,16,22,14,30,15,42,17,46,28,60,19,70,
%T A066253 20,72,36,82,21,100,40,108,23,112,24,136,25,148,52,150,26,166,58,178,
%U A066253 27,192,29,222,66,228,31,232,32,240,33,250,78,262,34,306,35,312,88,336
%N A066253 a(n) = A066249(A066249(n)).
%C A066253 Permutation of natural numbers.
%H A066253 Amiram Eldar, <a href="/A066253/b066253.txt">Table of n, a(n) for n = 1..10000</a>
%H A066253 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>.
%t A066253 seq[nmax_] := Module[{p = Prime[Range[nmax]], s}, s = Riffle[Take[Complement[Range[2, p[[-1]]], p] - 1, Length[p]], p - 1]; s[[TakeWhile[s, # <= Length[s] &]]]]; seq[100] (* _Amiram Eldar_, Mar 19 2025 *)
%Y A066253 Cf. A066249.
%K A066253 nonn
%O A066253 1,1
%A A066253 _Reinhard Zumkeller_, Dec 09 2001