|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Numbers n such that A258767(n) = n.
|
|
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]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|