OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
151 is in the sequence as 1 is nonprime and 5 is prime.
MATHEMATICA
dapnQ[n_]:=Module[{c=Boole[PrimeQ[IntegerDigits[n]]], len}, len=Length[c]; c==PadRight[{}, len, {0, 1}]||c==PadRight[{}, len, {1, 0}]]; Select[ Range[ 10, 200], dapnQ] (* Harvey P. Dale, Jul 21 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jul 02 2003
EXTENSIONS
Corrected (120 inserted) by Harvey P. Dale, Jul 21 2019
STATUS
approved