A045537 - OEIS

This site is supported by donations to The OEIS Foundation.

A045537

Least nontrivial exponent e such that n is a substring of n^e.

2, 2, 5, 5, 3, 2, 2, 5, 5, 3, 2, 11, 14, 10, 8, 26, 6, 17, 5, 11, 5, 6, 10, 15, 3, 2, 19, 15, 7, 8, 5, 11, 3, 14, 14, 10, 6, 10, 6, 11, 3, 6, 18, 5, 11, 5, 18, 9, 5, 3, 2, 3, 7, 16, 17, 11, 3, 5, 9, 11, 2, 6, 7, 7, 11, 17, 15, 8, 5, 11, 5, 9, 8, 5, 8, 3, 2, 16, 21, 11, 5, 6, 14, 4, 11, 22, 22, 7 (list; graph; refs; listen; history; internal format)

	OFFSET	`0,1`
	COMMENTS	`n^a(n) = A104782(n).`
	LINKS	`Reinhard Zumkeller, Table of n, a(n) for n = 0..1000` `Index entries for sequences related to automorphic numbers`
	MATHEMATICA	`f[n_] := Block[{k = 2}, While[ StringPosition[ ToString[n^k], ToString[n]] == {}, k++ ]; k]; Table[ f[n], {n, 0, 87}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), May 09 2005)`
	PROG	`(Haskell)` `import Data.List (isInfixOf)` `a045537 n = 2 + length` (takeWhile (not . ((show n) `isInfixOf`) . show) $ iterate (* n) (n^2)) `-- Reinhard Zumkeller, Sep 29 2011`
	CROSSREFS	`Cf. A051248, A070327.` `Sequence in context: A054156 A054079 A005177 * A161622 A116559 A008280` `Adjacent sequences: A045534 A045535 A045536 * A045538 A045539 A045540`
	KEYWORD	`base,nonn`
	AUTHOR	`Erich Friedman (erich.friedman(AT)stetson.edu)`

Content is available under The OEIS End-User License Agreement .

Last modified February 14 23:53 EST 2012. Contains 205689 sequences.