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 A258768 #7 Jun 11 2015 17:40:43 %S A258768 1,8,13,34,45,49,51,80,86,92,98,146,163,164,206,216,266,279,303,312, %T A258768 333,337,348,356,359,371,387,388,398,406,421,432,445,460,463,465,509, %U A258768 517,533,536,546,548,572,576,585,602,607,612,624,638,658,666,669,675,688,704,711,734,744,765,771,801,810,814 %N A258768 Fixed points in A258767. %C A258768 Numbers n such that A258767(n) = n. %C A258768 Also fixed points of A258827. - _Reinhard Zumkeller_, Jun 11 2015 %H A258768 Reinhard Zumkeller, <a href="/A258768/b258768.txt">Table of n, a(n) for n = 1..1000</a> %o A258768 (PARI) print1(1, ", "); v=[1]; n=1; while(#v<10^3, if(!issquarefree(n^2+v[#v]^2)&&!vecsearch(vecsort(v), n), v=concat(v, n); if(n==#v, print1(n, ", ")); n=0); n++) %o A258768 (Haskell) %o A258768 a258768 n = a258768_list !! (n-1) %o A258768 a258768_list = [x | x <- [1..], a258767 x == x] %o A258768 -- _Reinhard Zumkeller_, Jun 11 2015 %Y A258768 Cf. A258767, A075380, A075381, A256271, A258766. %Y A258768 Cf. A258827. %K A258768 nonn %O A258768 1,2 %A A258768 _Derek Orr_, Jun 09 2015