login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A105581 Primes whose indices are palindromic. 2

%I

%S 2,3,5,7,11,13,17,19,23,31,79,137,193,257,317,389,457,523,547,607,661,

%T 739,811,877,947,1019,1087,1153,1231,1301,1399,1459,1531,1601,1667,

%U 1747,1831,1907,1999,2081,2141,2239,2309,2381,2447,2549,2647,2699,2777,2851

%N Primes whose indices are palindromic.

%e prime(22) = 79 prime(33) = 137 the 11th and 12th entries.

%o (PARI) g(n) = for(x=1,n,if(ispal(x),print1(prime(x)","))) ispal(n) = { local(len,s1,s2); n=Str(n); len=length(n)\2; s1 = left(n,len); s2 = right(n,len); if(s1 == rev(s2),return(1),return(0)) } left(str,n) = \ Get the left n characters from string str. { local(v,tmp,x); v =""; tmp = Vec(str); ln=length(tmp); if(n > ln,n=ln); for(x=1,n, v=concat(v,tmp[x]); ); return(v) } right(str,n) = \ Get the right n characters from string str. { local(v,ln,s,x); v =""; tmp = Vec(str); ln=length(tmp); if(n > ln,n=ln); s = ln-n+1; for(x=s,ln, v=concat(v,tmp[x]); ); return(v) } rev(str) = \ Get the reverse of the input string { local(tmp,s,j); tmp = Vec(Str(str)); s=""; forstep(j=length(tmp),1,-1, s=concat(s,tmp[j])); return(s) }

%Y Cf. A258433.

%K easy,nonn,base

%O 1,1

%A _Cino Hilliard_, May 03 2005

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 9 09:27 EDT 2021. Contains 343699 sequences. (Running on oeis4.)