A119667 Squares that contain multi-digit prime substrings.

196, 289, 361, 441, 529, 676, 729, 841, 961, 1024, 1089, 1156, 1296, 1369, 1521, 1764, 1936, 2025, 2116, 2304, 2401, 2601, 2809, 2916, 3025, 3136, 3721, 4096, 4356, 4489, 4761, 5041, 5329, 5476, 5776, 5929, 6241, 6561, 6724, 6889, 7056, 7396, 7569, 7921

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

Sequence in context: A151713 A224667 A118781 * A023108 A092231 A188247

Adjacent sequences: A119664 A119665 A119666 * A119668 A119669 A119670

Keyword

base,nonn

Author

Tanya Khovanova, Jul 29 2006

Extensions

More terms from Joshua Zucker, Aug 04 2006

Status

approved