|
Search: id:A082123
|
|
|
| A082123 |
|
Smallest difference > 1 between d and p/d for any divisor d of the partial product p of the sequence, starting with 17. |
|
+0
3
|
|
| 17, 16, 26, 36, 76, 94, 432, 37220, 996768, 158267352, 973348166592, 8429202561226344, 419324164827901536306744
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
PROGRAM
|
(PARI) p=17; print1(p, ", "); for(n=1, 13, r=floor(sqrt(p)); d1=1; d2=1; nE=omega(p); P=factor(p); E=P[, 2]; P=P[, 1]; forvec(v=vector(nE, i, [0, E[i]]), x=prod(k=1, nE, P[k]^v[k]); if(x<=r && x>=d2, d1=d2; d2=x, if(x<=d2 && x>=d1, d1=x))); difer=p/d2-d2; if(difer<=1, difer=p/d1-d1); print1(difer", "); p*=difer)
|
|
CROSSREFS
|
Cf. A082120, A003681 (starts with 2, 3), A082124.
Sequence in context: A022973 A023459 A004458 this_sequence A050256 A102423 A010856
Adjacent sequences: A082120 A082121 A082122 this_sequence A082124 A082125 A082126
|
|
KEYWORD
|
nonn,hard,more
|
|
AUTHOR
|
Ralf Stephan (ralf(AT)ark.in-berlin.de), Apr 04 2003
|
|
EXTENSIONS
|
a(12) from Herman Jamke (hermanjamke(AT)fastmail.fm), Nov 02 2006
a(13) from Herman Jamke (hermanjamke(AT)fastmail.fm), Nov 14 2006
|
|
|
Search completed in 0.002 seconds
|
