|
Search: id:A060290
|
|
|
| A060290 |
|
Twin Harshad numbers whose sum is prime (includes overlaps). |
|
+0
2
|
|
| 3, 5, 7, 11, 13, 17, 19, 41, 223, 401, 419, 449, 881, 1021, 1259, 1289, 1471, 1601, 1607, 1871, 1999, 2029, 2281, 2549, 2609, 2833, 3041, 3359, 3457, 4001, 4049, 4481, 4801, 4931, 5641, 6329, 7499, 7561, 8081, 8849, 8929, 9613, 9619, 10111, 10321
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
EXAMPLE
|
a(5)=17, a prime because the first Harshad number is 8 and the second is 9 and 8+9=17. In this sequence overlapping Harshad's are permitted: 1+2=3 and 2+3=5.
|
|
PROGRAM
|
(UBASIC) 20 A=0; 30 inc A; 40 if Ct=2 then Z=(A-1)+(A-2): if Z=prmdiv(Z) then print A-2; "+"; A-1; "="; Z; "/"; :inc Pt; 50 if Ct=2 then Ct=1:A=A-2; 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<=10 then 30; 170 print Pt;
|
|
CROSSREFS
|
A060288, A060289, A005349, A060159.
Sequence in context: A045394 A070739 A061244 this_sequence A096880 A069458 A062280
Adjacent sequences: A060287 A060288 A060289 this_sequence A060291 A060292 A060293
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Enoch Haga (Enokh(AT)comcast.net), Mar 24 2001
|
|
|
Search completed in 0.006 seconds
|
