login
Complement of A243490: Numbers n such that A069787(n) <> n.
2

%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