A261528 Least positive integer k such that both k and k*n belong to the set {m>0: prime(m)+2 is prime with prime(prime(m)+2) = prime(prime(m))+6}.
2, 891, 81002, 814812, 86050, 5917, 65527, 109853, 2563344, 25379, 2640232, 266076, 775889, 67387, 68111, 37950, 353416, 347139, 56390, 11299, 89491, 545458, 910786, 353416, 1913477, 9025, 111569, 511796, 1456228, 37909, 1494675, 212092, 69352, 107769, 300657, 1155675, 391972, 1073031, 55074, 49892
Offset: 1
Keywords
Examples
a(1) = 2 since 2*1 = 2, and prime(2)+2 = 3+2 = 5 is prime with prime(5)-prime(3) = 11-5 = 6. a(2) = 891 since prime(891)+2 = 6947 + 2 = 6949 is prime with prime(6949)-prime(6947) = 70123-70117 = 6, and prime(891*2)+2 = 15269 + 2 = 15271 is prime with prime(15271)-prime(15269) = 167119-167113 = 6.
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 the conjecture for r = a/b with a,b = 1..20
- 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]&&f[f[k]+2]-f[f[k]]==6 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,40}]
Comments