[go: up one dir, main page]

login
Revision History for A259386 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Palindromic numbers in bases 3 and 9 written in base 10.
(history; published version)
#13 by N. J. A. Sloane at Tue Aug 18 12:57:29 EDT 2015
AUTHOR

Eric A. Schmidt (eric2012(AT)codeicon.com) and Robert G. Wilson v, Jul 16 2015

Discussion
Tue Aug 18
12:57
OEIS Server: https://oeis.org/edit/global/2454
#12 by R. J. Mathar at Wed Jul 22 03:56:47 EDT 2015
STATUS

editing

approved

#11 by R. J. Mathar at Wed Jul 22 03:56:43 EDT 2015
STATUS

approved

editing

#10 by N. J. A. Sloane at Fri Jul 17 12:28:58 EDT 2015
STATUS

proposed

approved

#9 by Michel Marcus at Fri Jul 17 11:27:11 EDT 2015
STATUS

editing

proposed

#8 by Michel Marcus at Fri Jul 17 11:27:02 EDT 2015
STATUS

proposed

editing

#7 by Vincenzo Librandi at Fri Jul 17 01:31:21 EDT 2015
STATUS

editing

proposed

#6 by Vincenzo Librandi at Fri Jul 17 01:31:08 EDT 2015
MATHEMATICA

b1=3; b2=9; lst={}; Do[d1=IntegerDigits[n, b1]; d2=IntegerDigits[n, b2]; If[d1==Reverse[d1]&&d2==Reverse[d2], AppendTo[lst, n]], {n, 0, 80000}]; lst (* Vincenzo Librandi, Jul 17 2015 *)

STATUS

proposed

editing

#5 by Giovanni Resta at Thu Jul 16 15:37:26 EDT 2015
STATUS

editing

proposed

#4 by Giovanni Resta at Thu Jul 16 15:35:52 EDT 2015
NAME

Palindromic numbers in bases 3 and 9 written in base 10.

DATA

0, 1, 2, 4, 8, 10, 20, 40, 80, 82, 91, 100, 164, 173, 182, 328, 364, 400, 656, 692, 728, 730, 820, 910, 1460, 1550, 1640, 2920, 3280, 3640, 5840, 6200, 6560, 6562, 6643, 6724, 7300, 7381, 7462, 8038, 8119, 8200, 13124, 13205, 13286, 13862, 13943, 14024, 14600, 14681, 14762, 26248, 26572, 26896, 29200, 29524, 29848, 32152, 32476, 32800, 52496, 52820, 53144, 55448, 55772, 56096, 58400, 58724, 59048, 59050, 59860, 60670, 65620, 66430, 67240, 72190, 73000, 73810, 532900, 1181729

LINKS

Giovanni Resta, <a href="/indexA259386/Pac#palindromesb259386.txt">Index entries Table of n, a(n) for sequences related to palindromesn = 1..10000</a>

<a href="/index/Pac#palindromes">Index entries for sequences related to palindromes</a>

FORMULA

Intersection of A014190 and A029955.

EXAMPLE

40 is in the sequence because 40_10 = 44_9 = 1111_3.

MATHEMATICA

(* first load nthPalindromeBase from A002113 *) palQ[n_Integer, base_Integer] := Block[{}, Reverse[ idn = IntegerDigits[n, base]] == idn]; k = 0; lst = {}; While[k < 21000000, pp = nthPalindromeBase[k, 9]; If[palQ[pp, 3], AppendTo[lst, pp]; Print[pp]]; k++]; lst

STATUS

proposed

editing

Discussion
Thu Jul 16
15:37
Giovanni Resta: I had to delete the last two terms you submitted in Data because they were incorrect. Indeed, after 73810 there is 118100, not 532900.