OFFSET
1,1
COMMENTS
Terms are == 9 (mod 10).
PROG
(PARI) iscomp(n) = (n != 0) && (n != 1) && ! isprime(n);
isok(p) = {if (! isprime(p), return (0)); rd = digits(subst(Polrev(digits(p)), x, 10)); for (i=1, #rd, if (i % 2, if (! iscomp(rd[i]), return (0)), if (! isprime(rd[i]), return (0))); ); return (1); } \\ Michel Marcus, Apr 20 2014
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 08 2003
EXTENSIONS
More terms from Ray Chandler, May 20 2003
STATUS
approved