

A111676


Array of primes of the type k concatenated with 2n1 where k < 2n1. 1> no prime 13,23 5> no prime 17,37,47,67 19,29,59,79,89 211,311,811,911 113,313,613,1013,1213 15> no prime 317,617,... ... Sequence contains the arrays separated by zero for n = 10k +5.


2



0, 13, 23, 0, 17, 37, 47, 67, 19, 29, 59, 79, 89, 211, 311, 811, 911, 113, 313, 613, 1013, 1213, 0, 317, 617, 1117, 1217, 419, 619, 719, 919, 1019, 1319, 1619, 421, 521, 821, 1021, 1321, 1621, 1721, 223, 523, 823, 1123, 1223, 1423, 1523, 1723, 1823, 0, 127
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS



EXAMPLE

For 2n1 = 9, we have primes 19,29,59,79 and 89. 109 is not included as 10 > 9.


MAPLE

cat2 := proc(n, m) n*10^(max(1, ilog10(m)+1))+m ; end: A111676 := proc(nrow) local town1, k, a ; town1 := 2*nrow1 ; a := [] ; for k from 1 to town11 do if isprime(cat2(k, town1)) then a := [op(a), cat2(k, town1)] ; fi ; od; if a = [] then RETURN([0]) ; else RETURN(a) ; fi ; end: seq(op(A111676(nrow)), nrow=1..16) ; # R. J. Mathar, Aug 20 2007


CROSSREFS



KEYWORD

base,nonn,tabf


AUTHOR



EXTENSIONS



STATUS

approved



