A162890
The set of exotic numbers A064818 extended by allowing the double factorials A006882 into the set of operations.
Original entry on oeis.org
1, 2, 3, 15, 24, 25
Offset: 1
Using double factorials (!!) augments A064818 for example by 3 = 3!! and by 15 = (5!!)*1 = (5!!)/1 = (5!!)^1.
A075047
Numbers k whose prime factorization contains the same digits as k.
Original entry on oeis.org
25, 121, 471663, 931225, 4473225, 6953931, 7301441, 10713728, 13246317, 17332133, 19367424, 34706961, 36310761, 54363717, 68714219, 73553125, 73641071, 74390183, 93478133, 102712448, 102941361, 109502361, 113162997, 115521875, 120934784, 134179011, 134381673, 134472875, 135478125
Offset: 1
25 = 5^2 and 121 = 11^2 are terms.
The term 1971753273 -> 1,9,7,1,7,5,3,2,7,3 -> 1,1,2,3,3,5,7,7,7,9 is in the sequence because its factorization is 3^7*7^1*37^1*59^2 -> 3,7,7,1,3,7,1,5,9,2 -> 1,1,2,3,3,5,7,7,7,9 and this coincides with the digits of the term itself. - _Robert G. Wilson v_, Jun 06 2014
-
fQ[n_] := Sort@ IntegerDigits@ n == Sort@ Flatten@ IntegerDigits@ FactorInteger@ n; k = 1; lst = {}; While[k < 100000001, If[ fQ@ k, AppendTo[lst, k]; Print@ k]; k++]; lst (* Robert G. Wilson v, Jun 05 2014 *)
-
isok(n, b=10) = {f = factor(n); v = []; for (i=1, #f~, v = concat(v, digits(f[i,1], b)); v = concat(v, digits(f[i,2], b));); vecsort(v) == vecsort(digits(n, b));} \\ Michel Marcus, Jul 14 2015
Showing 1-2 of 2 results.
Comments