%I A117738
%S A117738 1,1,3,23,43,13,87,71,153,11,19,13,89,219,119,459,1,129,633,131,71,217,
%T A117738 1091,911,1141,511,143,201,377,379,371,377,83,201,993,53,143,307,423,
%U A117738 919,259,263,759,3933,3,1781,607,2327,7683,541,3443,6507,4023,3399,899
%N A117738 Least number d such that 10^n -/+ 3d form a prime pair.
%F A117738 A115564(n)/3.
%t A117738 f[n_] := Block[{k = 1}, While[ ! PrimeQ[10^n - 3k] || ! PrimeQ[10^n + 
               3k], k++ ]; k]; Array[f, 55]
%Y A117738 Sequence in context: A116893 A106066 A167216 this_sequence A014582 A146142 
               A105854
%Y A117738 Adjacent sequences: A117735 A117736 A117737 this_sequence A117739 A117740 
               A117741
%K A117738 nonn
%O A117738 1,3
%A A117738 Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 12 2006