|
| |
|
|
A105403
|
|
Numbers n such that prime(n)-1 and prime(n+1)-1 have the same largest prime factor.
|
|
0
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| The PARI program below is a generalization of this type of sequence. These numbers are rare. Are they finite? Proof?
No more terms between 217 and 3090000. - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 14 2008
No more terms < 5760000. - David Wasserman (dwasserm(AT)earthlink.net), May 02 2008
|
|
|
FORMULA
| {i: A023503(i) = A023503(i+1)}. - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 14 2008
|
|
|
EXAMPLE
| The prime factors of prime(217)-1 = 2, 3, 13, 17. The prime factors of prime(218)-1 = 2, 2, 2, 2, 5, 17 and 17 is the same largest factor.
|
|
|
PROG
| (PARI) \prime indices such that gd of prime(x)+ k and prime(x+m) + k are equal divpm1(n, m, k) = { local(x, l1, l2, v1, v2); for(x=2, n, v1 = ifactor(prime(x)+ k); v2 = ifactor(prime(x+m)+k); l1 = length(v1); l2 = length(v2); if(v1[l1] == v2[l2], print1(x", ") ) ) } ifactor(n) = \Vector of the prime factors of n { local(f, j, k, flist); flist=[]; f=Vec(factor(n)); for(j=1, length(f[1]), for(k = 1, f[2][j], flist = concat(flist, f[1][j]) ); ); return(flist) }
|
|
|
CROSSREFS
| Sequence in context: A098827 A184238 A078208 * A134644 A189100 A085637
Adjacent sequences: A105400 A105401 A105402 * A105404 A105405 A105406
|
|
|
KEYWORD
| hard,more,nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), May 01 2005
|
| |
|
|
