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

Author

Anthony Sand, Aug 05 2014

Keywords

• nonn
• base

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

Examples

			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
		

Crossrefs

Cf. A240962, A007377, A030700, A053408.

Programs

Mathematica

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

PARI

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