|
Search: id:A080670
|
|
|
| A080670 |
|
Literal reading of the prime factorization of n. |
|
+0
4
|
|
| 1, 2, 3, 22, 5, 23, 7, 23, 32, 25, 11, 223, 13, 27, 35, 24, 17, 232, 19, 225, 37, 211, 23, 233, 52, 213, 33, 227, 29, 235, 31, 25, 311, 217, 57, 2232, 37, 219, 313, 235, 41, 237, 43, 2211, 325, 223, 47, 243, 72, 252, 317, 2213, 53, 233, 511, 237, 319, 229, 59, 2235
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Exponents equal to 1 are omitted and therefore A080670 differs from A067599.
|
|
EXAMPLE
|
8=2^3, which reads 23, hence a(8)=23; 12=2^2.3, which reads 223, hence a(12)=223
|
|
MATHEMATICA
|
f[n_] := Block[{p = Flatten[ FactorInteger[n]]}, k = Length[p]; While[k > 0, If[ p[[k]] == 1, p = Delete[p, k]]; k-- ]; FromDigits[ Flatten[ IntegerDigits[p]]]]; Table[ f[n], {n, 2, 60}]
|
|
CROSSREFS
|
Cf. A037276, A067599.
Sequence in context: A024765 A090122 A114749 this_sequence A073647 A073646 A109671
Adjacent sequences: A080667 A080668 A080669 this_sequence A080671 A080672 A080673
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Jon Perry (perry(AT)globalnet.co.uk), Mar 02 2003
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 02 2003
|
|
|
Search completed in 0.002 seconds
|
