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 A097255 #15 Sep 08 2022 08:45:14 %S A097255 0,8,72,80,648,656,720,728,5832,5840,5904,5912,6480,6488,6552,6560, %T A097255 52488,52496,52560,52568,53136,53144,53208,53216,58320,58328,58392, %U A097255 58400,58968,58976,59040,59048,472392,472400,472464,472472,473040 %N A097255 Numbers whose set of base 9 digits is {0,8}. %C A097255 n such that there exists a permutation p_1, ..., p_n of 1, ..., n such that i + p_i is a power of 9 for every i. %H A097255 Vincenzo Librandi, <a href="/A097255/b097255.txt">Table of n, a(n) for n = 0..1000</a> %F A097255 a(n) = 8*A033046(n). %F A097255 a(2n) = 9*a(n), a(2n+1) = a(2n)+8. %t A097255 fQ[n_]:=Union@Join[{0,8},IntegerDigits[n,9]]=={0,8};Select[Range[0,500000],fQ] (* or *) FromDigits[#,9]&/@Tuples[{0,8},6](* _Vincenzo Librandi_, May 25 2012 *) %o A097255 (Magma) [n: n in [0..500000] | Set(IntegerToSequence(n, 9)) subset {0, 8}]; // _Vincenzo Librandi_, May 25 2012 %o A097255 (Maxima) a[0]:0$ a[n]:=9*a[floor(n/2)]+4*(1-(-1)^n)$ makelist(a[n], n, 0, 36); /* _Bruno Berselli_, May 26 2012 */ %Y A097255 Cf. A001196, A005823, A097251-A097262. %K A097255 nonn,base %O A097255 0,2 %A A097255 _Ray Chandler_, Aug 03 2004