%I #6 Aug 08 2015 22:31:23
%S 1,2,3,4,5,12,42,48,9,90,22,96,299,154,60,288,918,1026,380,60,2184,
%T 616,23,120,175,2964,135,980,319,1230,2015,2464,1056,272,2310,2448,
%U 111,11628,2301,8800,7134,252,4730,3036,1665,3634,1551,2016,147,4950
%N Least multiple of n such that every partial concatenation followed by a 7 is prime.
%e 17, 127, 1237, 12347, 123457, ... etc. are all prime.
%p Lcat := proc(L) local a,i; a := 0 ; for i from 1 to nops(L) do a := a*10^(max(1,ilog10(op(i,L))+1))+op(i,L) ; od: RETURN(a) ; end: A109744 := proc(nmax) local a,k,n; a := [1] ; while nops(a) < nmax do n := nops(a)+1 ; k := 1; while not isprime(Lcat([op(a),k*n,7]) ) do k := k+1 ; od ; a := [op(a),k*n] ; od: RETURN(a) ; end: op(A109744(50)) ; # _R. J. Mathar_, Aug 15 2007
%Y Cf. A110436, A110437.
%K base,nonn
%O 1,2
%A _Amarnath Murthy_, Aug 03 2005
%E More terms from _R. J. Mathar_, Aug 15 2007