%I #8 Jul 19 2015 01:33:47
%S 11,41,31,41,251,61,71,641,811,101,259374246011,0,131,75295361,151,
%T 40961
%N Smallest prime obtained as the concatenation of a power of n followed by a 1, or 0 if no such number exists.
%C a(12) = 0. Subsidiary sequence: n such that 10*n^k +1 is composite for all k >0 (indices of zero entries in this sequence): see A088783.
%C a(17) is too large to display here. After a(17) the sequence continues: 181, 191, 4001, 211, 1368800680154120519681, 0, 241, 251, 6761, 271, 281, 7072811, 9001, 311, 0, 331, 0, 12251, 466561, 13691, 20851361, 23134411, 401
%t f[n_] := Block[{k = 1}, While[ !PrimeQ[10*n^k + 1] && k != 1500, k++ ]; If[k == 1500, 0, 10*n^k + 1]]; Table[ f[n], {n, 1, 50}] (* _Robert G. Wilson v_, Oct 25 2003 *)
%Y Cf. A088623, A088782, A088783.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Oct 19 2003
%E Next term is too large to include. - _Ray Chandler_, Oct 23 2003
%E Extended by _Robert G. Wilson v_, Oct 25 2003