A176905 - OEIS

%I #4 Mar 31 2012 12:38:36

%S 5,11,17,19,31,37,41,43,53,59,61,71,73,79,83,97,101,103,127,131,151,

%T 173,191,193,227,233,251,263,269,271,293,313,337,347,349,353,359,367,

%U 373,379,383,389,401,419,421,431,433,439,443,461,467,487,491,499,503,521

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

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

%H N. J. A. Sloane, <a href="/A176905/b176905.txt">Table of n, a(n) for n = 1..8114</a> [Computed using the Mma program]

%t 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]

%Y Cf. A169753, A169754, A049329.

%K nonn,base

%O 1,1

%A _Harvey P. Dale_ & _Vladimir Joseph Stephan Orlovsky_, Apr 28 2010, May 01 2010