%I
%S 3,7,11,19,41,401,419,449,881,1021,1259,1289,1471,1601,1607,1871,1999,
%T 2029,2281,2549,2609,2833,3041,3359,3457,4001,4049,4481,4801,5641,
%U 6329,7499,7561,8081,8849,8929,9613,9619,10321,11131,12401,12799,13033
%N Distinct (nonoverlapping) twin Harshad numbers whose sum is prime.
%C Suggested by Puzzle 129, The Prime Puzzles and Problems Connection
%e a(3)=19, a prime, because the first Harshad number is 9 and the second is 10 and 9+10=19. To find the Harshad numbers take H1=(p1)/2 as the first Harshad and then the second Harshad, H2=H1+1. Harshad numbers are those which have integral quotients after division by the sum of their digits. Note that 2+3=5 is not included because 1+2=3 are the first twins whose sum is prime and the next twins, 3+4=7, must not overlap the preceding pair.
%o (UBASIC) 20 A=0; 30 inc A; 40 if Ct=2 then Z=(A1)+(A2): if Z=prmdiv(Z) then print A2; "+"; A1; "="; Z; "/"; :inc Pt; 50 if Ct=2 then Ct=1:A=A1; 60 X=1; 70 B=str(A); 80 L=len(B); 90 inc X; 100 S=mid(B,X,1); 110 V=val(S):W=W+V; 120 if X<L then 90; 130 D=A/W:E=A\W: if D=E then inc Ct; 140 if Ct<>Dt+1 then Ct=0:Dt=0; 150 Dt=Ct:W=0; 160 if A<10000001 then 30; 170 print Pt;
%Y A005349, A060159, A060289 etc.
%K easy,nonn,base
%O 0,1
%A _Enoch Haga_, Mar 23 2001
