A240963 Numbers n such that the decimal expansion of n^n contains no zeros.

1, 2, 3, 4, 5, 6, 7, 8, 22

Offset

1,2

Comments

A240962(a(n)) = 0.

The sequence seems to be finite; compare A007377 (n such that 2^n contains no 0).

For no reason I can fathom this is a subsequence of A053408. - Charles R Greathouse IV, Aug 21 2014

Links

Table of n, a(n) for n=1..9.

Example

1^1 = 1
2^2 = 4
3^3 = 27
4^4 = 256
5^5 = 3125
6^6 = 46656
7^7 = 823543
8^8 = 16777216
22^22 = 341427877364219557396646723584

Mathematica

Select[Range[10^4], If[Count[IntegerDigits[#^#], 0] == 0, True] &] (* Michael De Vlieger, Aug 07 2014 *)

Prog

(PARI)
for(n=1, 10^3, d=digits(n^n); if(vecmin(d), print1(n, ", "))) \\ Derek Orr, Aug 05 2014

Crossrefs

Cf. A240962, A007377, A030700, A053408.

Sequence in context: A134942 A371260 A215888 * A053408 A269355 A269357

Adjacent sequences: A240960 A240961 A240962 * A240964 A240965 A240966

Keyword

nonn,base

Author

Anthony Sand, Aug 05 2014

Status

approved