|
%I #6 Jun 08 2014 08:59:07
%S 6,7,11,12,14,15,17,18,19,21,25,26,28,29,31,32,33,35,37,38,39,40,41,
%T 42,43,44,45,46,47,48,49,50,51,52,53,57,58,59,60,61,62,63,67,68,70,71,
%U 73,74,75,77,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,99,100
%N Complement of A243490: Numbers n such that A069787(n) <> n.
%C Numbers that are not fixed by permutation A069787.
%H Antti Karttunen, <a href="/A243489/b243489.txt">Table of n, a(n) for n = 1..6644</a>
%o (Scheme, with _Antti Karttunen_'s IntSeq-library)
%o (define A243489 (MATCHING-POS 1 0 (lambda (k) (not (= k (A069787 k))))))
%Y Complement: A243490. Cf. A069787.
%K nonn
%O 1,1
%A _Antti Karttunen_, Jun 07 2014
|
