|
|
A181333
|
|
a(n) cannot be prefixed or followed by any digit to form a semiprime.
|
|
0
|
|
|
60, 208, 252, 552, 588, 630, 656, 696, 710, 768, 816, 864, 1025, 1028, 1050, 1225, 1280, 1300, 1432, 1804, 1950, 2004, 2016, 2152, 2160, 2376, 2410, 2664, 2672, 2808, 2920, 2988, 3172, 3230, 3356
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Number of terms less than or equal to 10^n: 0, 1, 12, 144, 2203, 31408, 422176, ..., . For those which are less than 10^6 (mod 10), {{0, 8392}, {8, 4700}, {2, 6173}, {6, 4717}, {4, 4708}, {5, 2384}, {7, 94}, {3, 79}, {9, 81}, {1, 80}}. - Robert G. Wilson v, Jan 27 2011
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 60 because 60 (any digit to the left still gives a multiple of 10, not a semiprime) and
601 is prime,
602 = 2 * 7 * 43,
603 = 3^2 * 67,
604 = 2^2 * 151,
605 = 5 * 11^2,
606 = 2 * 3 * 101,
607 is prime,
608 = 2^5 * 19,
609 = 3 * 7 * 29.
a(2) = 208 because any digit to the left still ends in 8, and is nonsemiprime, and:
2081 is prime,
2082 = 2 * 3 * 347,
2083 is prime,
2084 = 2^2 * 521,
2085 = 3 * 5 * 139,
2086 = 2 * 7 * 149,
2087 is prime,
2088 = 2^3 * 3^2 * 29,
2089 is prime.
|
|
MATHEMATICA
|
fQ[n_] := Block[{d = Range[0, 9], id = IntegerDigits@ n}, Union[ semiPrimeQ@ # & /@ Sort@ Join[ FromDigits /@ (Join[{#}, id] & /@ d), FromDigits /@ (Join[id, {#}] & /@ d)]] == {False}];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|