A253898 Complement of A253897.
1, 2, 7, 11, 13, 17, 19, 23, 25, 26, 27, 29, 31, 32, 34, 37, 38, 41, 42, 43, 46, 47, 49, 51, 52, 53, 54, 57, 58, 59, 61, 62, 64, 65, 67, 68, 69, 71, 73, 74, 76, 79, 81, 82, 83, 85, 86, 87, 89, 92, 93, 94, 95, 96, 97, 98, 100, 101, 103, 106, 107, 109, 110, 111, 113, 114, 115, 116, 118, 119
Offset: 1
Keywords
Programs
-
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 r=1;while(r<100,if(b(r)<50,print1(r,", "));r++)
Comments