Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A071407
Least k such that k*prime(n) + 1 and k*prime(n) - 1 are twin primes.
5
2, 2, 6, 6, 18, 24, 6, 12, 6, 12, 42, 54, 30, 24, 6, 120, 18, 258, 24, 18, 84, 132, 54, 48, 114, 42, 6, 6, 48, 24, 144, 30, 6, 12, 12, 78, 24, 36, 30, 54, 132, 18, 90, 36, 66, 18, 42, 30, 120, 30, 36, 42, 18, 18, 54, 84, 60, 12, 210, 12, 6, 60, 150, 102, 6, 210, 30, 24, 6
OFFSET
1,1
COMMENTS
Note that 6 divides a(n) for n > 2. - T. D. Noe, Jan 07 2013
EXAMPLE
n=4: prime(4)=7, a(4)=6 because 6*prime(4)=42 and {41,43} are primes.
MATHEMATICA
Table[fl=1; Do[s=(Prime[j])*k; If[PrimeQ[s-1]&&PrimeQ[s+1]&&Equal[fl, 1], Print[{j, k}]; fl=0], {k, 1, 2*j^2}], {j, 0, 100}]
PROG
(Haskell)
a071407 n = head [k | k <- [2, 4..], let x = k * a000040 n,
a010051' (x - 1) == 1, a010051' (x + 1) == 1]
-- Reinhard Zumkeller, Feb 14 2013
CROSSREFS
Cf. A071558 (k at every integer).
Cf. A220141, A220142 (record values).
Sequence in context: A011260 A117855 A086442 * A309094 A109859 A128057
KEYWORD
nonn
AUTHOR
Labos Elemer, May 24 2002
STATUS
approved