|
Search: id:A035244
|
|
|
| A035244 |
|
Smallest number with n substrings which are primes. |
|
+0
2
|
|
| 1, 2, 13, 23, 113, 137, 373, 1137, 1733, 1373, 11317, 11373, 13733, 31373, 113173, 131373, 137337, 337397, 1113173, 1137337, 1373373, 2337397, 3733797, 11373137, 11373379
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
No leading 0's allowed in substrings.
|
|
EXAMPLE
|
a(4)=113 since 3, 11, 13 and 113 are prime and no smaller number works.
|
|
MATHEMATICA
|
f[n_] := Block[{s = IntegerDigits[n], c = 0, d = {}}, l = Length[s]; t = Flatten[ Table[ Take[s, {i, j}], {i, 1, l}, {j, i, l}], 1]; k = l(l + 1)/2; While[k > 0, If[ t[[k]][[1]] != 0, d = Append[d, FromDigits[ t[[k]] ]]]; k-- ]; Count[ PrimeQ[d], True]]; a = Table[0, {25}]; Do[ b = f[n]; If[ a[[b + 1]] == 0, a[[b + 1]] = n], {n, 1, 15000000}]; a
|
|
CROSSREFS
|
Cf. A079397.
Sequence in context: A045389 A090528 A094535 this_sequence A085822 A093301 A079397
Adjacent sequences: A035241 A035242 A035243 this_sequence A035245 A035246 A035247
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
Erich Friedman (erich.friedman(AT)stetson.edu)
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 25 2003
|
|
|
Search completed in 0.002 seconds
|
