A177192 Primes p such that p^p ends in p and p is not congruent to 1 (mod 10).

5, 193, 499, 557, 1249, 1693, 4999, 7057, 31249, 49999, 52057, 54193, 56249, 79193, 281249, 829193, 952057, 4531249, 4999999, 8281249, 8704193, 17077057, 39954193, 54577057, 63281249, 64954193, 904577057, 2154577057, 3092077057, 3958704193

Offset

1,1

Comments

A proper subset of A052228.

Links

Table of n, a(n) for n=1..30.

Eric Weisstein's World of Mathematics, Automorphic Number.

Index entries for sequences related to automorphic numbers

Index entries for sequences related to final digits of numbers

Mathematica

fQ[n_] := PowerMod[n, n, 10^Floor[Log[10, n] + 1]] == n; p = 2; lst = {}; While[p < 10^12, If[ Mod[p, 10] != 1 && fQ@p, AppendTo[lst, p]; Print@p]; p = NextPrime@p]; lst

Crossrefs

Cf. A003226, A007185, A016090, A052228.

Sequence in context: A086124 A211505 A198485 * A100760 A240702 A240639

Adjacent sequences: A177189 A177190 A177191 * A177193 A177194 A177195

Keyword

base,nonn

Author

Jonathan Vos Post and Robert G. Wilson v, May 04 2010

Status

approved