|
%I #4 Jan 25 2015 21:48:58
%S 1,2,7,11,13,17,19,23,25,26,27,29,31,32,34,37,38,41,42,43,46,47,49,51,
%T 52,53,54,57,58,59,61,62,64,65,67,68,69,71,73,74,76,79,81,82,83,85,86,
%U 87,89,92,93,94,95,96,97,98,100,101,103,106,107,109,110,111,113,114,115,116,118,119
%N Complement of A253897.
%C Numbers n such that the sequence A127644 with a(1) = n does not give a permutation of the natural numbers. See A127644 for more information.
%o (PARI) b(r)=v=[r];n=1;while(n<100,p=prod(i=1,#v,v[i]);if(p*n\(vecsum(v)+n)==p*n/(vecsum(v)+n)&&!vecsearch(vecsort(v),n),v=concat(v,n);n=0);n++);#v
%o r=1;while(r<100,if(b(r)<50,print1(r,", "));r++)
%Y Cf. A127644, A253897.
%K nonn
%O 1,2
%A _Derek Orr_, Jan 17 2015
|
