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

Author

Derek Orr, Jun 09 2015

Keywords

• nonn

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

Crossrefs

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

Cf. A258827.

Programs

Haskell

a258768 n = a258768_list !! (n-1)
a258768_list = [x | x <- [1..], a258767 x == x]
-- Reinhard Zumkeller, Jun 11 2015

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++)