2,1

Reinhard Zumkeller, Table of n, a(n) for n = 2..5000

(Haskell)

import Data.List (isInfixOf)

a236046 n = head [x | x <- [2..], not $ show x `isInfixOf` (show $ x ^ n)]

(PARI) a(n) = my(k=2); while(#strsplit(Str(k^n), Str(k))!=1, k++); k; \\ Michel Marcus, Jan 25 2022

Cf. A034293, A235052.

Sequence in context: A087628 A263060 A089871 * A289898 A068971 A019233

Adjacent sequences: A236043 A236044 A236045 * A236047 A236048 A236049

nonn,base

Reinhard Zumkeller, Jan 18 2014

approved