login
A069822
Numbers n for which there is at least one x < n such that sigma(x) = sigma(n).
13
11, 15, 17, 23, 25, 26, 31, 35, 38, 39, 41, 46, 47, 51, 53, 55, 56, 58, 59, 62, 65, 69, 70, 71, 75, 77, 78, 79, 82, 83, 87, 89, 92, 94, 95, 97, 103, 107, 110, 113, 115, 116, 118, 119, 122, 123, 124, 125, 127, 130, 131, 135, 139, 140, 141, 142, 143, 145, 151, 153
OFFSET
1,1
COMMENTS
Numbers n for which A263025(n) > 1. - Antti Karttunen, Dec 08 2017
LINKS
PROG
(PARI) for(s=1, 200, if(prod(i=1, s-1, sigma(i)-sigma(s))==0, print1(s, ", ")))
(PARI) for(n=1, 16384, y=0; s=sigma(n); for(k=1, (n-1), if(sigma(k)==s, y=1; break)); if(y, i++; write("b069822.txt", i, " ", n))); \\ Antti Karttunen, Dec 08 2017
CROSSREFS
Cf. A296087 (a subsequence).
Sequence in context: A365329 A186404 A111322 * A116999 A309362 A279422
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 28 2002
STATUS
approved