OFFSET
1,1
EXAMPLE
14(3=abs(1-4)), 16(5=abs(1-6)), 18(7=abs(1-8)), 20(2=2-0)
MATHEMATICA
sdkQ[n_]:=Module[{id=IntegerDigits[n], mid}, mid=Min[id]; PrimeQ[Abs[mid-Total[DeleteCases[ id, mid, 1, 1]]]]]; cnkQ[n_]:=CompositeQ[n]&&sdkQ[n]; Select[Range[200], cnkQ] (* Harvey P. Dale, Aug 23 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Mar 15 2009, May 25 2009
EXTENSIONS
Entries checked by R. J. Mathar, May 19 2010
STATUS
approved