login
A181488
Composite Flavius' numbers (A000960) whose divisors are again Flavius' numbers.
2
39, 49, 91, 133, 763, 15883, 21207, 32761, 180739, 268423, 746607, 2277163, 28604419, 93742347, 13192600483, 124387470307, 3898087261291, 13987912482103, 69089500671469
OFFSET
1,1
COMMENTS
Sequence A118130 is the analog for lucky numbers A000959.
a(20) > A000960(10^7). - Donovan Johnson, Aug 23 2012
PROG
(PARI) A181488(Nmax) = { my(S=[]); for(n=1, Nmax, my(F=n); for(i=1, n-1, F=(n-i)*ceil(F/(n-i)+1)); S=setunion(S, Set(F)); isprime(F) & next; fordiv(F, d, setsearch(S, d)||next(2)); print1(F", "))}
CROSSREFS
Sequence in context: A235151 A050439 A199993 * A020305 A216978 A252719
KEYWORD
nonn
AUTHOR
M. F. Hasler, Oct 29 2010
EXTENSIONS
a(13)-a(16) from Donovan Johnson, Oct 30 2010
a(17)-a(18) from Donovan Johnson, Nov 11 2010
a(19) from Donovan Johnson, Aug 23 2012
STATUS
approved