|
%I #7 Dec 08 2015 02:14:49
%S 1,1,2,3,1,3,5,1,3,4,5,7,3,5,7,1,5,6,7,11,1,3,7,11,13,3,5,8,11,13,1,5,
%T 7,9,11,13,17,1,3,7,10,13,17,19,3,5,11,17,19,1,5,7,11,12,13,17,19,23,
%U 3,7,13,19,23,5,11,14,17,23,1,7,11,13,15
%N Triangle read by rows in which row n lists: n, in the center of the row and the pairs of noncomposite numbers that are equidistant to n, as shown below in the example.
%H Nathaniel Johnston, <a href="/A154722/b154722.txt">Table of n, a(n) for n = 1..5000</a>
%e Triangle begins:
%e . . . . . . . . . . . . . . .1
%e . . . . . . . . . . . . . 1, 2, 3
%e . . . . . . . . . . . .1, .. 3, .. 5
%e . . . . . . . . . . 1, .. 3, 4, 5, .. 7
%e . . . . . . . . ... .. 3, .. 5, .. 7, .. .
%e . . . . . . . 1, .. .. .. 5, 6, 7, .. .. .,11
%e . . . . . .1, .. 3, .. .. .. 7, .. .. ..11, ..13
%e . . . . .. .. 3, .. 5, .. .. 8, .. ..11, ..13, .. .
%e . . .1, .. .. .. 5, .. 7, .. 9, ..11, ..13, .. .. ..17
%e . 1, .. 3, .. .. .. 7, .. .,10, .. ..13, .. .. ..17, ..19
%p isnotcomp:=proc(n)return (n=1 or isprime(n)) end:
%p for n from 1 to 10 do for k from 1 to 2*n-1 do if(k=n or (isnotcomp(k) and isnotcomp(2*n-k)))then print(k):fi:od:od: # _Nathaniel Johnston_, Apr 18 2011
%Y Cf. A000040, A008578, A154720, A154721, A154723, A154724, A154725, A154726, A154727.
%K easy,nonn,tabf
%O 1,3
%A _Omar E. Pol_, Jan 14 2009
%E a(45) - a(73) from _Nathaniel Johnston_, Apr 18 2011
|
