|
%I #17 Mar 04 2020 12:21:18
%S 3,13,7,17,13,23,19,29,31,41,37,47,43,53,61,71,73,83,79,89,97,107,103,
%T 113,127,137,139,149,157,167,163,173,181,191,223,233,229,239,241,251,
%U 271,281,283,293,307,317,337,347,349,359,373,383,379,389,409,419,421
%N List of prime pairs of form p, p + 10.
%H Seiichi Manyama, <a href="/A140445/b140445.txt">Table of n, a(n) for n = 1..10000</a>
%p i: 1: for k from 1 to 1200 do if isprim (k) and isprim (k+10) then a [ i ] : = k : a [ i + 1]: = k + 10 : i = i + 2 fi od : seq (a [ n ], n=1..i-1);
%t Flatten[{#,#+10}&/@Select[Prime[Range[100]],PrimeQ[#+10]&]] (* _Harvey P. Dale_, Apr 11 2011 *)
%Y Cf. A023203 (1st bisection), A092146 (2nd bisection).
%Y Cf. prime pairs of the form (p, p+k): A077800 (k=2), A094343 (k=4), A156274 (k=6), A156320 (k=8), this sequence (k=10), A156323 (k=12), A140446 (k=14), A272815 (k=16), A156328 (k=18), A272816 (k=20), A140447 (k=22).
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jun 26 2008
%E Corrected by _D. S. McNeil_, Dec 10 2009
|
