OFFSET
1,1
COMMENTS
Numbers n for which A263025(n) > 1. - Antti Karttunen, Dec 08 2017
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10547
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
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 28 2002
STATUS
approved