%I #9 Oct 09 2018 15:15:48
%S 1,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,2,1,2,1,1,1,1,1,2,1,2,1,
%T 1,1,2,1,1,1,1,1,2,1,1,1,2,1,2,1,1,1,2,1,2,1,1,1,1,1,2,1,2,1,1,1,2,1,
%U 1,1,1,1,2,1,2,1,1,1,2,1,1,1,2,1,2,1,1,1,2,1,2,1,2,1,1,1,2,1,1,1,1,1,2,1,1
%N a(n) = (p(n)-q(n))/n, where (p(n), q(n)) is the least pair of primes for which n divides p(n)-q(n).
%C For a guide to related sequences, see A204892.
%C It seems that a(A007921(n)) = 2 for all n. - _Antti Karttunen_, Oct 09 2018
%H Antti Karttunen, <a href="/A204897/b204897.txt">Table of n, a(n) for n = 1..12000</a>
%e (3-2)/1=1
%e (5-3)/2=1
%e (5-2)/3=1
%e (7-3)/4=1
%e (7-2)/5=1
%e (11-5)/6=1
%e (17-3)/7=2
%t (See the program at A204892.)
%o (PARI) A204897(n) = { my(d); forprime(p=3,oo, forprime(q=2,p-1,if(!((d=(p-q))%n),return(d/n),if(d<n,break)))); }; \\ _Antti Karttunen_, Oct 09 2018
%Y Cf. A007921, A204892, A204896, A000040.
%K nonn
%O 1,7
%A _Clark Kimberling_, Jan 20 2012
%E More terms from _Antti Karttunen_, Oct 09 2018
|