A162290
Let A087788(n) = p*q*r, where p
7, 23, 48, 22, 47, 45, 45, 21, 44, 163, 162, 43, 161, 280, 1684, 1363, 159, 351, 950, 1675, 1358, 949, 158, 345, 1829, 947, 1353, 510, 938, 1660, 2796, 1820, 820, 10208, 2779, 935, 1650, 817, 937, 1822
Offset: 1
Keywords
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
PARI
do(lim)=my(v=List()); forprime(p=3, sqrtnint(lim\=1,3), forprime(q=p+1, sqrtint(lim\p), forprime(r=q+1, lim\(p*q), if((q*r-1)%(p-1)||(p*r-1)%(q-1)||(p*q-1)%(r-1), , listput(v, [p*q*r,(p*q*r-1)*(p-1)/(q-1)/(r-1)]))))); v=vecsort(v,1); vector(#v,i,v[i][2]) \\ Charles R Greathouse IV, Sep 07 2016
Extensions
Edited by N. J. A. Sloane, Sep 14 2009, based on email messages from David Broadhurst and M. F. Hasler, Jul 10 2009
Spelling corrected by Jason G. Wurtzel, Aug 23 2010
Comments