%I A046258
%S A046258 8,9,23,51,69,81,93,129,169,179,181,273,321,321,449,639,769,857,1047,
%T A046258 1213,1233,1443,1587,1637,1953,2433,2599,2639,2901,3261,3681,4059,5109,
%U A046258 5169,5407,5691,6149,6531,7939,8081,8211,8439,8589,8623,8663,8757,9459
%N A046258 a(1) = 8; a(n) is smallest number >= a(n-1) such that the juxtaposition 
               a(1)a(2)...a(n) is a prime.
%t A046258 a[1] = 8; a[n_] := a[n] = Block[{k = a[n - 1], c = IntegerDigits @ Table[ 
               a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, 
               IntegerDigits[k]]], k ++ ]; k]; Table[ a[n], {n, 47}] (from Robert 
               G. Wilson v (rgwv(at)rgwv.com), Aug 05 2005)
%Y A046258 Cf. A069610, A074344, A033680, A033679, A033681, A046254, A046255, A046256, 
               A046257, A046259, A111524.
%Y A046258 Sequence in context: A061414 A071869 A048124 this_sequence A074344 A081351 
               A032462
%Y A046258 Adjacent sequences: A046255 A046256 A046257 this_sequence A046259 A046260 
               A046261
%K A046258 nonn
%O A046258 1,1
%A A046258 Patrick De Geest (pdg(AT)worldofnumbers.com), May 15, 1998.