OFFSET
0,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
EXAMPLE
196 contains 19 - a prime number as a substring. 289 contains 89 - a prime number as a substring.
MATHEMATICA
mdpsQ[n_]:=Module[{idn=IntegerDigits[n]}, Or@@PrimeQ[Flatten[ Table[ FromDigits/@ Partition[idn, i, 1], {i, 2, Length[idn]-1}]]]]; Select[ Range[ 100]^2, mdpsQ] (* Harvey P. Dale, Feb 28 2013 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Jul 29 2006
EXTENSIONS
More terms from Joshua Zucker, Aug 04 2006
STATUS
approved