login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A115884 The n-th prime plus n gives a palindrome. 6
1, 2, 3, 4, 22, 45, 66, 71, 75, 88, 94, 97, 103, 105, 116, 140, 331, 432, 454, 565, 646, 703, 795, 1042, 1108, 1168, 1248, 1334, 1644, 1652, 1864, 1874, 1900, 2181, 2295, 2323, 2485, 2509, 2585, 2679, 2835, 2899, 2923, 3052, 3360, 3372, 3396, 3404 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

EXAMPLE

prime(103)+103 = 666, a palindrome.

MAPLE

filter:= proc(n) local p, L;

   p:= ithprime(n)+n;

   L:= convert(p, base, 10);

   ListTools:-Reverse(L) = L

end proc:

select(filter, [$1..10000]); # Robert Israel, Nov 04 2014

MATHEMATICA

palQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]]; With[ {nn=3500}, Rest[Flatten[Position[Total/@Thread[{Prime[Range[nn]], Range[nn]}], _?(palQ)]]]] (* Harvey P. Dale, Oct 11 2011 *)

palQ[n_] := Reverse[x = IntegerDigits[n]] == x; Select[Range[3405], palQ[Prime[#] + #] &] (* Jayanta Basu, Jun 24 2013 *)

CROSSREFS

Cf. A084122, A115885, A115888.

Sequence in context: A019074 A019075 A006709 * A171728 A010345 A233344

Adjacent sequences:  A115881 A115882 A115883 * A115885 A115886 A115887

KEYWORD

nonn,base

AUTHOR

Giovanni Resta, Feb 06 2006

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy .

Last modified March 27 13:47 EDT 2017. Contains 284176 sequences.