OFFSET
1,2
COMMENTS
Numbers n such that A258767(n) = n.
Also fixed points of A258827. - Reinhard Zumkeller, Jun 11 2015
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
PROG
(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++)
(Haskell)
a258768 n = a258768_list !! (n-1)
a258768_list = [x | x <- [1..], a258767 x == x]
-- Reinhard Zumkeller, Jun 11 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Derek Orr, Jun 09 2015
STATUS
approved