login
A258768
Fixed points in A258767.
3
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
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