A235009 Primes which become fourth powers when the digits are rotated once to the left.

61, 601, 63841, 66553, 6208513, 60006553, 60208513, 60983449, 62998657, 64521217, 67807489, 69223681, 600000001, 600000409, 600208513, 605470081, 607163929, 607807489, 634210201, 653379481

Offset

1,1

Comments

Every term in the sequence begins with the digit 6.

Links

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

Example

The prime 6208513 is in the sequence because 2085136=38^4.

Mathematica

Select[Prime[Range[34*10^6]], IntegerQ[Surd[FromDigits[ RotateLeft[ IntegerDigits[ #]]], 4]]&] (* Harvey P. Dale, Sep 12 2021 *)

Prog

(PARI) rotl(a) = my(b, c, d); b=#Str(a); c=floor(a/(10^(b-1))); d=a-c*(10^(b-1)); 10*d+c
s=[]; forprime(n=2, 700000000, if(ispower(rotl(n), 4), s=concat(s, n))); s

Crossrefs

Cf. A235008.

Sequence in context: A234926 A355602 A069595 * A304764 A316508 A068850

Adjacent sequences: A235006 A235007 A235008 * A235010 A235011 A235012

Keyword

nonn,base

Author

Colin Barker, Jan 02 2014

Status

approved