|
%I #34 Aug 03 2014 14:01:25
%S 2,3,3,5,3,5,7,5,7,3,7,11,3,5,11,13,5,7,11,13,3,7,13,17,3,5,11,17,19,
%T 5,7,11,13,17,19,3,7,13,19,23,5,11,17,23,7,11,13,17,19,23,3,13,19,29,
%U 3,5,11,17,23,29,31,5,7,13,17,19,23,29,31,7,19,31,3,11,17,23,29,37,5,11
%N Triangle read by rows in which row n lists the distinct primes of the distinct decompositions of 2n into unordered sums of two primes.
%C Each entry of the n-th row is a prime p from the n-th row of A002260 such that 2n-p is also prime. If A002260 is read as the antidiagonals of a square array, this sequence can be read as an irregular square array (see example below). The n-th row has length A035026(n). This sequence is the nonzero subsequence of A154725. - _Jason Kimberley_, Jul 08 2012
%H T. D. Noe, <a href="/A171637/b171637.txt">Rows n = 2..250, flattened</a>
%H <a href="/index/Go#Goldbach">Index entries for sequences related to Goldbach conjecture</a>
%e a(2)=2 because for row 2: 2*2=2+2; a(3)=3 because for row 3: 2*3=3+3; a(4)=3 and a(5)=5 because for row 4: 2*4=3+5; a(6)=3, a(7)=5 and a(8)=7 because for row 5: 2*5=3+7=5+5.
%e The table starts:
%e 2;
%e 3;
%e 3,5;
%e 3,5,7;
%e 5,7;
%e 3,7,11;
%e 3,5,11,13;
%e 5,7,11,13;
%e 3,7,13,17;
%e 3,5,11,17,19;
%e 5,7,11,13,17,19;
%e 3,7,13,19,23;
%e 5,11,17,23;
%e 7,11,13,17,19,23;
%e 3,13,19,29;
%e 3,5,11,17,23,29,31;
%e As an irregular square array [_Jason Kimberley_, Jul 08 2012]:
%e 3 . 3 . 3 . . . 3 . 3 . . . 3 . 3
%e . . . . . . . . . . . . . . . .
%e 5 . 5 . 5 . . . 5 . 5 . . . 5
%e . . . . . . . . . . . . . .
%e 7 . 7 . 7 . . . 7 . 7 . .
%e . . . . . . . . . . . .
%e . . . . . . . . . . .
%e . . . . . . . . . .
%e 11. 11. 11. . . 11
%e . . . . . . . .
%e 13. 13. 13. .
%e . . . . . .
%e . . . . .
%e . . . .
%e 17. 17
%e . .
%e 19
%t Table[ps = Prime[Range[PrimePi[2*n]]]; Select[ps, MemberQ[ps, 2*n - #] &], {n, 2, 50}] (* _T. D. Noe_, Jan 27 2012 *)
%o (Haskell)
%o a171637 n k = a171637_tabf !! (n-2) !! (k-1)
%o a171637_tabf = map a171637_row [2..]
%o a171637_row n = reverse $ filter ((== 1) . a010051) $
%o map (2 * n -) $ takeWhile (<= 2 * n) a000040_list
%o -- _Reinhard Zumkeller_, Mar 03 2014
%Y Related triangles: A154720, A154721, A154722, A154723, A154724, A154725, A154726, A154727, A184995. - _Jason Kimberley_, Sep 03 2011
%Y Cf. A020481 (left edge), A020482 (right edge), A238778 (row sums), A238711 (row products), A000040, A010051.
%K nonn,tabf
%O 2,1
%A _Juri-Stepan Gerasimov_, Dec 13 2009
%E Keyword:tabl replaced by tabf, arbitrarily defined a(1) removed and entries checked by _R. J. Mathar_, May 22 2010
%E Definition clarified by _N. J. A. Sloane_, May 23 2010
|
