A261541 Least positive integer m such that both m and m*n belong to the set {k>0: prime(k)+2, prime(k)+6, prime(k)+8 are all prime}.
3, 358712, 34772, 79631, 1822685, 22865, 2066, 2593722, 26, 3418900, 26, 711611, 286, 1493190, 882854, 513312, 1707237, 788232, 913695, 1980985, 7147, 443152, 479580, 2589105, 865432, 265243, 103641, 160536, 398360, 851672
Offset: 1
Keywords
Examples
a(1) = 3 since 3*1 = 3, and prime(3)+2 = 5+2 =7, prime(3)+6 = 11 and prime(3)+8 = 13 are all prime. a(2) = 358712 since prime(358712)+2 = 5158031+2 = 5158033, prime(358712)+6 = 5158037, prime(358712)+8 = 5158039, prime(358712*2)+2 = 10852601+2 = 10852603, prime(358712*2)+6 = 10852607 and prime(358712*2)+8 = 10852609 are all prime.
References
- Zhi-Wei Sun, Problems on combinatorial properties of primes, in: M. Kaneko, S. Kanemitsu and J. Liu (eds.), Number Theory: Plowing and Starring through High Wave Forms, Proc. 7th China-Japan Seminar (Fukuoka, Oct. 28 - Nov. 1, 2013), Ser. Number Theory Appl., Vol. 11, World Sci., Singapore, 2015, pp. 169-187.
Links
- Zhi-Wei Sun, Table of n, a(n) for n = 1..100
- Zhi-Wei Sun, Checking part (i) of the conjecture for r = a/b with a,b = 1..25
- Zhi-Wei Sun, Problems on combinatorial properties of primes, arXiv:1402.6641 [math.NT], 2014.
Programs
-
Mathematica
f[n_]:=Prime[n] PQ[k_]:=PrimeQ[f[k]+2]&&PrimeQ[f[k]+6]&&PrimeQ[f[k]+8] Do[k=0;Label[bb];k=k+1;If[PQ[k]&&PQ[k*n],Goto[aa],Goto[bb]];Label[aa];Print[n," ", k];Continue,{n,1,30}]
Comments