|
| |
|
|
A100409
|
|
Numbers n such that n is d_1*d_2*...*d_k-th composite number (n=A002808(d_1*d_2*...*d_k)) where d_1 d_2 ... d_k is the decimal expansion of n.
|
|
0
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| If n is a composite number then A002808(n-pi(n)-1)=n.
|
|
|
EXAMPLE
| 98 is in the sequence because 9*8=72 and 98 is 72-th composite number(98=A002808(9*8)).
|
|
|
MATHEMATICA
| Do[h=IntegerDigits[n]; l=Length[h]; If[ !PrimeQ[n]&& n-PrimePi[n]-1==Product[h[[k]], {k, l}], v=Append[v, n]; Print[n]], {n, 100000}]
|
|
|
CROSSREFS
| Cf. A002808.
Sequence in context: A186400 A205188 A045072 * A043157 A039334 A043937
Adjacent sequences: A100406 A100407 A100408 * A100410 A100411 A100412
|
|
|
KEYWORD
| base,fini,full,nonn
|
|
|
AUTHOR
| Farideh Firoozbakht (mymontain(AT)yahoo.com), Dec 06 2004
|
| |
|
|
