Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A086002
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A086002 Primes which when added to their own rotation yield a prime. +0
3
229, 239, 241, 257, 269, 271, 277, 281, 439, 443, 463, 467, 479, 499, 613, 641, 653, 661, 673, 677, 683, 691, 811, 823, 839, 863, 881, 10111, 10151, 10169, 10181, 10243, 10247, 10253, 10267, 10303, 10313, 10331, 10343, 10391, 10429, 10453, 10457 (list; graph; listen)
OFFSET

1,1

COMMENT

Let rotation rot(k) of a number k be defined by swapping the blocks of the first [d/2] and of the last [d/2] digits of k, where d=A055642(k).

If the number of digits in k is odd, the center digit remains untouched during rotation.

So for example the rotation of 1234 is 3412, while the rotation of 12345 is 45312.

Differences to A004086 appear with numbers with at least 4 digits, that is, after A004087(168) if we are concerned with primes.

The sequence lists primes p such that p+rot(p) is (again) prime.

EXAMPLE

a(100)=12917 because (i) 12917 is prime. (ii) rotate(12917) = 17912 and 12917+17912=30829 which is also prime.

MAPLE

A055642 := proc(n) max(1, 1+ilog10(n)) ; end:

rot := proc(n) local d, dl, dh, pre, suf ; d := A055642(n) ; dl := floor( d/2) ; dh := floor( (d+1)/2) ; pre := floor(n/10^dh) ; suf := n mod 10^dl ; if dl <> dh then suf*10^dh+pre+10^dl*( floor(n/10^dl) mod 10) ; else suf*10^dh+pre ; fi; end:

isA086002 := proc(p) if isprime(p) then isprime(p+rot(p)) ; else false; fi; end:

for n from 1 to 1500 do p := ithprime(n) ; if isA086002(p) then printf("%d, ", p) ; fi; od: # R. J. Mathar, May 27 2009

CROSSREFS

Cf. A086003, A086004.

Sequence in context: A098246 A091551 A033528 this_sequence A061783 A140017 A119711

Adjacent sequences: A085999 A086000 A086001 this_sequence A086003 A086004 A086005

KEYWORD

base,nonn

AUTHOR

Chuck Seggelin (barkeep(AT)plastereddragon.com), Jul 07 2003

EXTENSIONS

Edited by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), May 27 2009

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified November 25 20:09 EST 2009. Contains 167514 sequences.


AT&T Labs Research