Search: id:A114442
Results 1-1 of 1 results found.

%I A114442
%S A114442 211,23,2,3,13,5,127,7,17,281,19,137,277,139,59,881,79,179,11299,199,
%T A114442 1559,2797,1399,599,12799,997,1979,86861,1999,13799,25999,13999,49999,
%U A114442 172999,70999,19979,1199929,39799,137999,277999,139999,59999,1299979
%N A114442 Least prime whose absolute difference between its even decimal digits 
               and its odd decimal digits is n.
%C A114442 When a(n) is not A067180(n) and n!=0 (mod 3): 1, 11, 13, 17, 20, 22, 
               26, 29, 31, 32, 34, 35, 37, 38, 40, 44, 47, 49, 53, 55, 56, 58, 59, 
               61, 62, 65, 67, 70, 71, 73, 74, 76, 77, 80, 82, 83, ....
%e A114442 a(0)=211 since 211 is the least prime which meets the criteria, i.e.; 
               |2-(1+1)|=0.
%t A114442 f[n_] := Block[{id = IntegerDigits@Prime@n}, Abs[(Plus @@ id) - 2Plus 
               @@ Select[id, OddQ]]]; t = Table[0, {50}]; Do[ a = f[n]; If[ t[[a 
               + 1]] == 0, t[[a + 1]] = n], {n, 100020}]; t
%Y A114442 Cf. A111309, A067180.
%Y A114442 Sequence in context: A136350 A068297 A028677 this_sequence A037272 A020365 
               A031780
%Y A114442 Adjacent sequences: A114439 A114440 A114441 this_sequence A114443 A114444 
               A114445
%K A114442 nonn
%O A114442 0,1
%A A114442 Zak Seidov (zakseidov(AT)yahoo.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), 
               Feb 04 2006

Search completed in 0.001 seconds