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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A138348 Lesser of twin primes such that both twin primes have no bases b, 1 < b < p-1, in which p is a palindrome. 2
 137, 4337, 8291, 9419, 10937, 13757, 19427, 20981, 36011, 38327, 43397, 59441, 71327, 74717, 76871, 90437, 91571, 117239, 120941, 121019, 167021, 181787, 191561, 196871, 197597, 221717, 228881, 239387, 240881, 271277, 279119, 289031 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Also primes in A016038 which are 2 less than their immediate successors. Prime index of A138348: {33, 592, 1040, 1165, 1328, 1627, 2201, 2359, 3826, 4046, 4524, 6009, 7060, 7367, 7557, 8756, 8852, ... LINKS Robert G. Wilson v, Table of n, a(n) for n = 1..95 MATHEMATICA palindromicBases[n_] := Module[{p}, Table[p = IntegerDigits[n, b]; If[p == Reverse[p], {b, p}, Sequence @@ {}], {b, 2, n - 2}]]; lst = {}; Do[ If[ Length@ palindromicBases@ Prime@ n == 0, AppendTo[lst, Prime@n]], {n, 22189}]; lst[[ # ]] & /@ Select[ Range@ Length@ lst - 1, lst[[ # ]] + 2 == lst[[ # + 1]] &] f[n_] := Block[{k = 2}, While[id = IntegerDigits[n, k]; id != Reverse@ id, k++ ]; k]; lst = {2}; Do[p = Prime@ n; If[ f@p == p - 1, AppendTo[lst, p]; Print@p], {n, 128149}]; lst[[ # ]] & /@ Select[Range@11284, lst[[ # ]] + 2 == lst[[ # + 1]] &] CROSSREFS Cf. A001359, A016038. Sequence in context: A190307 A094488 A221346 * A278175 A261973 A103878 Adjacent sequences:  A138345 A138346 A138347 * A138349 A138350 A138351 KEYWORD nonn,base AUTHOR Robert G. Wilson v, Mar 09 2008 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
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 13 22:57 EDT 2020. Contains 336473 sequences. (Running on oeis4.)