|
|
A085248
|
|
Left truncatable 3-almost primes, in which repeatedly deleting the leftmost digit gives a 3-almost prime at every step until a single-digit 3-almost prime remains.
|
|
1
|
|
|
8, 18, 28, 68, 78, 98, 268, 318, 418, 428, 498, 518, 578, 598, 618, 628, 668, 678, 978, 1268, 1498, 1578, 1598, 1978, 2318, 2428, 2598, 2678, 3428, 3598, 3628, 3678, 4318, 4418, 4498, 4978, 5518, 5618, 5678, 6268, 6428, 6618, 6628, 6668, 6978, 7498, 7598
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
a(7)=268 is a term because 268, 68 and 8 are all 3-almost primes.
|
|
MATHEMATICA
|
lt3pQ[n_]:=Module[{idn=IntegerDigits[n]}, FreeQ[idn, 0]&&Union[ PrimeOmega/@ (FromDigits/@Table[Take[idn, -i], {i, Length[idn]}])] =={3}]; Select[Range[8000], lt3pQ] (* Harvey P. Dale, Dec 28 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|