A176905 Primes p such that p^p contains the string 'p' as a substring.

5, 11, 17, 19, 31, 37, 41, 43, 53, 59, 61, 71, 73, 79, 83, 97, 101, 103, 127, 131, 151, 173, 191, 193, 227, 233, 251, 263, 269, 271, 293, 313, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 401, 419, 421, 431, 433, 439, 443, 461, 467, 487, 491, 499, 503, 521

Offset

1,1

Comments

17^17=827240261886336764"17"7, 19^19="19"784"19"655660313589123979,..

Links

N. J. A. Sloane, Table of n, a(n) for n = 1..8114 [Computed using the Mma program]

Mathematica

okQ[n_]:=Module[{idn=IntegerDigits[n], len, idp=IntegerDigits[n^n]}, len=Length[idn]; Length[Flatten[Position[Partition[idp, len, 1], idn]]]>=1]; Select[Prime[Range[250]], okQ]

Crossrefs

Cf. A169753, A169754, A049329.

Sequence in context: A271982 A338239 A179240 * A373656 A352273 A084088

Adjacent sequences: A176902 A176903 A176904 * A176906 A176907 A176908

Keyword

nonn,base

Author

Harvey P. Dale & Vladimir Joseph Stephan Orlovsky, Apr 28 2010, May 01 2010

Status

approved