HP 40gs Programming: Bug or Blindness?

[Gerald H]

For natural number input I claim the programme below should produce the sequence

https://oeis.org/A018800

However the calculator resolutely refuses to deliver the members of the sequence.

Is this a defect of the calculator or have I repeatedly missed an error in the programme?

Any suggestions how to get it to work?

Code:

Ans►N:
IF NOT ISPRIME?(Ans)
THEN
0►E:
FOR D=1 TO 6;
N*10►N:
FOR R=1 TO 10^D-1 STEP 2; 
N+R►S:
ISPRIME?(Ans)►E:
IF Ans
THEN
BREAK:
END:
NEXT:
IF E
THEN
BREAK:
END:
NEXT:
S:
END: