|
| |
|
|
A097227
|
|
Numbers n such that n = prime(d_1) * prime(d_2) * ... * prime(d_k), where d_1 d_2 ... d_k is the decimal expansion of n.
|
|
6
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| The next term, if it exists, is greater than 1.2*10^10. - Hauke Worpel (thebigh(AT)outgun.com), Jan 20 2008
|
|
|
EXAMPLE
| 279174=prime(2)*prime(7)*prime(9)*prime(1)*prime(7)*prime(4) so 279174 is in the sequence.
|
|
|
MATHEMATICA
| v={}; Do[h=IntegerDigits[n]; l=Length[h]; p=Product[h[[k]], {k, l}]; If[p>0&&Product[Prime[h[[k]]], {k, l}]==n, v=Append[v, n]; Print[v]], {n, 40000000}]
|
|
|
CROSSREFS
| Cf. A097228.
Sequence in context: A153884 A154239 A016215 * A125426 A004986 A154248
Adjacent sequences: A097224 A097225 A097226 * A097228 A097229 A097230
|
|
|
KEYWORD
| base,more,nonn
|
|
|
AUTHOR
| Farideh Firoozbakht (mymontain(AT)yahoo.com), Aug 12 2004
|
| |
|
|
