OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
EXAMPLE
127 is not a term because 7 is prime.
139 is a term because 139 is prime but 39 and 9 are composite.
MATHEMATICA
crgidQ[p_]:=AllTrue[FromDigits/@Table[Drop[IntegerDigits[p], k], {k, IntegerLength[ p]-1}], CompositeQ]; Select[Prime[Range[5, 500]], crgidQ] (* Harvey P. Dale, Jun 05 2024 *)
PROG
(PARI) arecomp(p) = {nbd = #digits(p); for (i=1, nbd-1, if (isprime(q=(p % 10^i)) || (q==1), return(0)); ); return (1); }
isokp(p) = (p>10) && isprime(p) && arecomp(p); \\ Michel Marcus, May 17 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
J. Lowell, May 17 2014
EXTENSIONS
More terms from Michel Marcus, May 17 2014
STATUS
approved