The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A321990 Positive numbers for which the product of digits is equal to the power tower of digits (right-associative). 1
 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 21, 22, 31, 41, 51, 61, 71, 81, 91, 111, 211, 221, 311, 411, 511, 611, 711, 811, 911, 1111, 2111, 2211, 2412, 3111, 3313, 4111, 4212, 5111, 6111, 6213, 7111, 8111, 8214, 9111, 11111, 21111, 22111, 22212, 24112, 24121, 28128, 28144 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Positive numbers k such that A007954(k) = A256229(k). All numbers of the form xx1x...x with x x's are terms, as are numbers of the form xxx1x...x with x^x x's, and so on. If the first two digits of a number are x,y, respectively, and if (x^(y-1))/y is a positive integer, then the number of the form xy1(...), where (...) is a sequence of digits whose product is (x^(y-1))/y, is a term. - Michal Gren, Nov 29 2018 LINKS Michal Gren, Table of n, a(n) for n = 1..10000 EXAMPLE 6213 is a term since 6^2^1^3 = 6*2*1*3 = 36. 8^4 = 4096. 8*4 = 32. So 841 followed by any sequence of digits whose product is 4096/32 = 128 is in the sequence. - David A. Corneth, Nov 28 2018 MATHEMATICA aQ[n_] := Module[{digits = IntegerDigits[n]}, If[MemberQ[digits, 0], False, Power@@digits == Times@@digits]]; Select[Range[1000], aQ] (* for small terms, or: *) aQ[n_] := Module[{d=IntegerDigits[n]}, If[MemberQ[d, 0], Return[False]]; p = Times@@d; If[MemberQ[d, 1], If[d[[1]]==1, Return[p==1]]; d = d[[1 ;; FirstPosition[d, 1][[1]]-1]]]; Do[p = Log[d[[i]], p], {i, 1, Length[d]}]; p==1]; Select[Range[1000], aQ] (* Amiram Eldar, Nov 24 2018 *) PROG (PARI) a007954(n) = my(d=digits(n)); vecprod(d); f256229(n, pd)= my(p=1); until(!n\=10, p=(n%10)^p; if (p>pd, return (-p))); p; isok(k) = my(pd = a007954(k)); pd == f256229(k, pd); \\ Michel Marcus, Nov 25 2018 CROSSREFS Cf. A001055, A007954, A256229. Sequence in context: A106001 A161390 A096106 * A076641 A076643 A352463 Adjacent sequences:  A321987 A321988 A321989 * A321991 A321992 A321993 KEYWORD nonn,base AUTHOR Michal Gren, Nov 23 2018 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 22 17:42 EDT 2022. Contains 353957 sequences. (Running on oeis4.)