A217112
Greatest number (in decimal representation) with n nonprime substrings in binary representation (substrings with leading zeros are considered to be nonprime).
Original entry on oeis.org
1, 3, 7, 6, 15, 14, 31, 29, 30, 63, 61, 62, 127, 54, 125, 126, 255, 117, 251, 254, 189, 511, 479, 509, 510, 379, 502, 1023, 1021, 1007, 1022, 958, 1018, 1014, 2047, 2045, 1791, 2046, 2042, 2027, 2037, 4091, 4095, 4063, 3069, 4094, 4090, 4085, 8159, 8187, 8191, 8189, 8127
Offset: 1
(1) = 1, since 1 = 1_2 (binary) is the greatest number with 1 nonprime substring.
a(2) = 3 = 11_2 has 3 substrings in binary representation (1, 1 and 11), two of them are nonprime substrings (1 and 1), and 11_2 = 3 is the only prime substrings. 3 is the greatest number with 2 nonprime substrings.
a(8) = 29 = 11101_2 has 15 substrings in binary representation (0, 1, 1, 1, 1, 11, 11, 10, 01, 111, 110, 101, 1110, 1101, 11101), exactly 8 of them are nonprime substrings (0, 1, 1, 1, 1, 01, 110, 1110). There is no greater number with 8 nonprime substrings in binary representation.
a(14) = 54 = 110110_2 has 21 substrings in binary representation, only 7 of them are prime substrings (10, 10, 11, 11, 101, 1011, 1101), which implies that exactly 14 substrings must be nonprime. There is no greater number with 14 nonprime substrings in binary representation.
A217119
Greatest number (in decimal representation) with n nonprime substrings in base-9 representation (substrings with leading zeros are considered to be nonprime).
Original entry on oeis.org
47, 428, 1721, 6473, 14033, 35201, 58961, 58967, 465743, 530701, 530710, 1733741, 4250788, 4723108, 4776398, 25051529, 37327196, 42450640, 42986860, 42987589, 42996409, 225463817, 382055767, 382571822, 386888308, 386888419, 387356789
Offset: 0
a(0) = 47, since 47 = 52_9 (base-9) is the greatest number with zero nonprime substrings in base-9 representation.
a(1) = 428 = 525_9 has 1 nonprime substring in base-9 representation (= 525_9). All the other base-9 substrings (2, 5, 5, 25, 52) are prime substrings. 525_9 is the greatest number with 1 nonprime substring.
a(2) = 1721 = 2322_9 has 10 substrings in base-9 representation, exactly 2 of them are nonprime substrings (22_9 and 23_3=8), and there is no greater number with 2 nonprime substrings in base-9 representation.
a(7) = 58967= 88788_9 has 15 substrings in base-9 representation, exactly 7 of them are nonprime substrings (4-times 8, 2-times 88, and 8788), and there is no greater number with 7 nonprime substrings in base-9 representation.
A179922
Primes with twelve embedded primes.
Original entry on oeis.org
113171, 113173, 113797, 123719, 153137, 179719, 199739, 213173, 229373, 231197, 233113, 233713, 236779, 237331, 237619, 237971, 241973, 259397, 317971, 327193, 343373, 353173, 361373, 372719, 373379, 382373, 432713, 519733, 521137, 521317
Offset: 1
-
import Data.List (elemIndices)
a179922 n = a179922_list !! (n-1)
a179922_list = map (a000040 . (+ 1)) $ elemIndices 12 a079066_list
-- Reinhard Zumkeller, Jul 19 2011
-
f[n_] := Block[ {id = IntegerDigits@n}, len = Length@ id - 1; Count[ PrimeQ@ Union[ FromDigits@# & /@ Flatten[ Table[ Partition[ id, k, 1], {k, len}], 1]], True] + 1]; Select[ Prime@ Range@ 43150, f@# == 13 &]
A217103
Minimal number (in decimal representation) with n nonprime substrings in base-3 representation (substrings with leading zeros are considered to be nonprime).
Original entry on oeis.org
2, 1, 3, 4, 14, 9, 34, 29, 30, 27, 89, 88, 83, 84, 81, 268, 251, 250, 248, 245, 243, 752, 754, 746, 740, 734, 731, 729, 2237, 2239, 2210, 2203, 2198, 2192, 2189, 2187, 6632, 6611, 6614, 6584, 6577, 6569, 6563, 6564, 6561, 19814, 19754, 19733, 19736, 19706
Offset: 0
a(0) = 2, since 2 = 2_3 is the least number with zero nonprime substrings in base-3 representation.
a(1) = 1, since 1 = 1_3 is the least number with 1 nonprime substring in base-3 representation.
a(2) = 3, since 3 = 10_3 is the least number with 2 nonprime substrings in base-3 representation (0 and 1).
a(3) = 4, since 4 = 11_3 is the least number with 3 nonprime substrings in base-3 representation (1, 1 and 11).
a(4) = 14, since 14 = 112_3 is the least number with 4 nonprime substrings in base-3 representation, these are 1, 1, 11 and 112 (remember, that substrings with leading zeros are considered to be nonprime).
a(7) = 29, since 29 = 1002_3 is the least number with 7 nonprime substrings in base-3 representation, these are 0, 0, 1, 00, 02, 002 and 100 (remember, that substrings with leading zeros are considered to be nonprime, 2_3 = 2, 10_3 = 3 and 1002_3 = 29 are base-3 prime substrings).
A217303
Minimal natural number (in decimal representation) with n prime substrings in base-3 representation (substrings with leading zeros are considered to be nonprime).
Original entry on oeis.org
1, 2, 5, 11, 17, 23, 50, 104, 71, 152, 215, 395, 476, 701, 719, 1367, 1934, 1448, 4127, 4121, 4346, 5822, 12302, 12383, 17468, 25505, 32066, 39113, 51749, 91040, 111509, 110798, 117359, 157211, 332396, 334358, 465092, 333791, 819386, 865232, 1001375, 1396673
Offset: 0
a(1) = 2 = 2_3, since 2 is the least number with 1 prime substring in base-3 representation.
a(2) = 5 = 12_3, since 5 is the least number with 2 prime substrings in base-3 representation (2_3 and 12_3).
a(3) = 11 = 102_3, since 11 is the least number with 3 prime substrings in base-3 representation (2_3, 10_3, and 102_3).
a(5) = 23 = 212_3, since 23 is the least number with 5 prime substrings in base-3 representation (2 times 2_3, 12_3=5, 21_3=19, and 212_3=23).
a(7) = 104 = 10212_3, since 104 is the least number with 7 prime substrings in base-3 representation (2 times 2_3, 10_3=3, 12_3=5, 21_3=19, 102_3=11, and 212_3=23).
A217308
Minimal natural number (in decimal representation) with n prime substrings in base-8 representation (substrings with leading zeros are considered to be nonprime).
Original entry on oeis.org
1, 2, 11, 19, 83, 107, 157, 669, 751, 1259, 4957, 6879, 6011, 14303, 47071, 48093, 65371, 188143, 327515, 440287, 384751, 1029883, 2604783, 2948955, 3602299, 6946651, 20304733, 23846747, 23937003, 23723867, 57278299, 167689071, 175479547, 191496027, 233824091
Offset: 0
a(1) = 2 = 2_8, since 2 is the least number with 1 prime substring in base-8 representation.
a(2) = 11 = 13_8, since 11 is the least number with 2 prime substrings in base-8 representation (3_8 and 13_8).
a(3) = 19 = 23_8, since 19 is the least number with 3 prime substrings in base-8 representation (2_8, 3_8, and 23_8).
a(4) = 83 = 123_8, since 83 is the least number with 4 prime substrings in base-8 representation (2_8, 3_8, 23_8=19, and 123_8=83).
a(8) = 751 = 1357_8, since 751 is the least number with 8 prime substrings in base-8 representation (3_8, 5_8, 7_8, 13_8=11, 35_8=29, 57_8=47, 357_8=239, and 1357_8=751).
A179910
Primes with two embedded primes.
Original entry on oeis.org
23, 37, 53, 73, 127, 139, 157, 167, 193, 211, 227, 229, 241, 251, 263, 277, 307, 331, 383, 389, 419, 433, 439, 443, 457, 467, 503, 521, 541, 557, 563, 577, 587, 599, 619, 631, 643, 647, 659, 677, 683, 727, 751, 757, 761, 827, 829, 839, 857, 859, 883, 929
Offset: 1
-
import Data.List (elemIndices)
a179910 n = a179910_list !! (n-1)
a179910_list = map (a000040 . (+ 1)) $ elemIndices 2 a079066_list
-- Reinhard Zumkeller, Jul 19 2011
-
f[n_] := Block[ {id = IntegerDigits@n}, len = Length@ id - 1; Count[ PrimeQ@ Union[ FromDigits@# & /@ Flatten[ Table[ Partition[ id, k, 1], {k, len}], 1]], True] + 1]; Select[ Prime@ Range@ 160, f@# == 3 &]
Select[ Prime@ Range@ 160, Function[ n, Length@ Select[ Union[ FromDigits /@ (Flatten[ Table[ Partition[#, k, 1], {k, Length@ # - 1}], 1] &)@ IntegerDigits@ n], PrimeQ]]@ # == 2 &] (* Michael Somos, Jan 13 2011 *)
A179911
Primes with three embedded primes.
Original entry on oeis.org
113, 131, 179, 197, 223, 233, 239, 257, 271, 283, 293, 311, 313, 337, 347, 353, 359, 367, 397, 431, 479, 547, 571, 593, 613, 617, 653, 719, 733, 739, 743, 773, 797, 823, 853, 937, 953, 971, 1013, 1031, 1097, 1103, 1117, 1129, 1151, 1163, 1213, 1217, 1229
Offset: 1
-
import Data.List (elemIndices)
a179911 n = a179911_list !! (n-1)
a179911_list = map (a000040 . (+ 1)) $ elemIndices 3 a079066_list
-- Reinhard Zumkeller, Jul 19 2011
-
f[n_] := Block[ {id = IntegerDigits@n}, len = Length@ id - 1; Count[ PrimeQ@ Union[ FromDigits@# & /@ Flatten[ Table[ Partition[ id, k, 1], {k, len}], 1]], True] + 1]; Select[ Prime@ Range@ 210, f@# == 4 &]
A179912
Primes with four embedded primes.
Original entry on oeis.org
137, 173, 317, 373, 379, 523, 673, 1123, 1153, 1171, 1193, 1223, 1231, 1277, 1279, 1283, 1297, 1307, 1327, 1531, 1579, 1597, 1613, 1637, 1759, 1783, 1823, 1913, 1931, 2053, 2153, 2333, 2339, 2341, 2351, 2393, 2399, 2411, 2467, 2503, 2539, 2543, 2557
Offset: 1
-
import Data.List (elemIndices)
a179912 n = a179912_list !! (n-1)
a179912_list = map (a000040 . (+ 1)) $ elemIndices 4 a079066_list
-- Reinhard Zumkeller, Jul 19 2011
-
f[n_] := Block[ {id = IntegerDigits@n}, len = Length@ id - 1; Count[ PrimeQ@ Union[ FromDigits@# & /@ Flatten[ Table[ Partition[ id, k, 1], {k, len}], 1]], True] + 1]; Select[ Prime@ Range@ 380, f@# == 5 &]
A179913
Primes with five embedded primes.
Original entry on oeis.org
1237, 1319, 1367, 1523, 1571, 1723, 1753, 1979, 1997, 2131, 2179, 2239, 2273, 2293, 2297, 2357, 2377, 2383, 2389, 2417, 2437, 2473, 2531, 2579, 2593, 2617, 2711, 2731, 2753, 2797, 3119, 3167, 3257, 3271, 3313, 3371, 3547, 3571, 3593, 3617, 3671, 3677
Offset: 1
-
import Data.List (elemIndices)
a179913 n = a179913_list !! (n-1)
a179913_list = map (a000040 . (+ 1)) $ elemIndices 5 a079066_list
-- Reinhard Zumkeller, Jul 19 2011
-
f[n_] := Block[ {id = IntegerDigits@n}, len = Length@ id - 1; Count[ PrimeQ@ Union[ FromDigits@# & /@ Flatten[ Table[ Partition[ id, k, 1], {k, len}], 1]], True] + 1]; Select[ Prime@ Range@ 510, f@# == 6 &]
Comments