A258768 Fixed points in A258767.

1, 8, 13, 34, 45, 49, 51, 80, 86, 92, 98, 146, 163, 164, 206, 216, 266, 279, 303, 312, 333, 337, 348, 356, 359, 371, 387, 388, 398, 406, 421, 432, 445, 460, 463, 465, 509, 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

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

Cf. A258767, A075380, A075381, A256271, A258766.

Cf. A258827.

Sequence in context: A096371 A354595 A063585 * A048851 A375786 A039298

Adjacent sequences: A258765 A258766 A258767 * A258769 A258770 A258771

Keyword

nonn

Author

Derek Orr, Jun 09 2015

Status

approved