VOOZH about

URL: https://oeis.org/A214744

⇱ A214744 - OEIS

login
A214744
Least m>0 such that n-m divides prime(n)-prime(m).
1
1, 2, 2, 3, 4, 3, 4, 3, 1, 8, 6, 6, 8, 8, 6, 4, 6, 4, 4, 6, 4, 4, 3, 15, 18, 2, 2, 3, 3, 15, 18, 15, 22, 17, 18, 15, 14, 15, 14, 17, 18, 11, 14, 15, 22, 11, 6, 7, 8, 9, 8, 11, 45, 7, 6, 45, 46, 7, 54, 9, 6, 42, 45, 46, 4, 42, 1, 30, 42, 45, 45, 42, 42, 42, 45, 45, 42, 45, 42
OFFSET
2,2
LINKS
EXAMPLE
Write x#y if x|y is false; then 7#17, 6#16, 5#14, 4#12, so a(8) = 4.
MATHEMATICA
Table[m = 1; While[! Divisible[Prime[n]-Prime[m], n-m], m++]; m, {n, 2, 100}]
CROSSREFS
Sequence in context: A075765 A309899 A181024 * A014656 A003078 A165359
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 29 2012
STATUS
approved