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
Links
- N. J. A. Sloane, Table of n, a(n) for n = 1..8114 [Computed using the Mma program]
Programs
-
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]
Comments