[go: up one dir, main page]

login
A253898
Complement of A253897.
0
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,2
COMMENTS
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.
PROG
(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++)
CROSSREFS
Sequence in context: A063976 A064000 A069180 * A173135 A020627 A043292
KEYWORD
nonn
AUTHOR
Derek Orr, Jan 17 2015
STATUS
approved