A083978
Smallest palindromic prime containing exactly n 7's.
Original entry on oeis.org
7, 727, 72727, 77377, 1777771, 7772777, 17772727771, 777767777, 72777777727, 77777677777, 7767777777677, 7777774777777, 377777777777773, 777777727777777, 72777777777777727, 77777777677777777, 7776777777777776777, 717777777787777777717, 737777777777777777737
Offset: 1
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
-
Table[d = 7; i = 1;
While[ x = IntegerDigits[Prime[i]];
x != Reverse[x] || Count[x, d] != n , i++];
FromDigits[x], {n, 1, 6}] (* Robert Price, Mar 25 2019 *)
A083972
Smallest palindromic prime containing exactly n 1's.
Original entry on oeis.org
313, 11, 18181, 11311, 1311131, 1114111, 110111011, 111181111, 11115151111, 1011117111101, 1110111110111, 1111118111111, 111111212111111, 111111151111111, 11121111111112111, 1011111110111111101, 1111111611161111111, 111110111171111011111, 1111111111111111111, 111111111161111111111, 11111111181118111111111, 1101111111119111111111011
Offset: 1
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
-
digOfInterest = 1;
primes = {};
While[Length[primes] < 6,
n = Length[primes] + 1;
i = 0;
While[Length[primes] != n,
i++;
dig = IntegerDigits[Prime[i]];
If[
(dig == Reverse[dig]) &&
(Count[dig, digOfInterest] == n),
AppendTo[primes, FromDigits[dig]];
];
];
];
primes
(* Kevin Southwick, Jul 25 2015 *)
A083973
Smallest palindromic prime containing exactly n 2's.
Original entry on oeis.org
2, 12421, 72227, 1221221, 3222223, 122232221, 322222223, 12222122221, 1202222222021, 1222227222221, 9222222222229, 122222232222221, 32222322222322223, 72222222422222227, 1202222222222222021, 1222222226222222221, 125222222222222222521, 722222222202222222227
Offset: 1
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
-
Table[d = 2; i = 1;
While[ x = IntegerDigits[Prime[i]];
x != Reverse[x] || Count[x, d] != n , i++];
FromDigits[x], {n, 1, 6}] (* Robert Price, Mar 25 2019 *)
A083976
Smallest palindromic prime containing exactly n 5's.
Original entry on oeis.org
5, 15451, 15551, 1550551, 154555451, 155535551, 355555553, 35555155553, 75555555557, 1555550555551, 152555555555251, 10555555355555501, 15505555555550551, 35555555755555553, 1555555055505555551, 1555555551555555551, 115555555555555555511
Offset: 1
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
-
Table[d = 5; i = 1;
While[ x = IntegerDigits[Prime[i]];
x != Reverse[x] || Count[x, d] != n , i++];
FromDigits[x], {n, 1, 6}] (* Robert Price, Mar 25 2019 *)
A083979
Smallest palindromic prime containing exactly n 8's.
Original entry on oeis.org
181, 18181, 78887, 1880881, 9888889, 188868881, 188888881, 18888588881, 1488888888841, 7888886888887, 3888888888883, 188888858888881, 188888888888881, 38888888088888883, 1688888888888888861, 3888888882888888883, 128888888888888888821
Offset: 1
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
-
Table[d = 8; i = 1;
While[ x = IntegerDigits[Prime[i]];
x != Reverse[x] || Count[x, d] != n , i++];
FromDigits[x], {n, 1, 5}] (* Robert Price, Mar 25 2019 *)
Module[{prs=Select[Prime[Range[105*10^5]],PalindromeQ]},Table[ SelectFirst[ prs,DigitCount[ #,10,8]==n&],{n,6}]] (* The program generates the first 6 terms of the sequence. *) (* Harvey P. Dale, May 11 2022 *)
A083980
Smallest palindromic prime containing exactly n 9's.
Original entry on oeis.org
191, 919, 19991, 1993991, 9199919, 199909991, 199999991, 90999599909, 95999999959, 99999199999, 9599999999959, 199999959999991, 959999999999959, 39999999299999993, 94999999999999949, 99999999299999999, 9299999999999999929, 9999999992999999999
Offset: 1
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
-
Table[d = 9; i = 1;
While[ x = IntegerDigits[Prime[i]];
x != Reverse[x] || Count[x, d] != n , i++];
FromDigits[x], {n, 1, 5}] (* Robert Price, Mar 25 2019 *)
A083981
Smallest palindromic prime containing exactly n zeros.
Original entry on oeis.org
101, 10301, 1300031, 1003001, 100404001, 100030001, 10060006001, 10000500001, 1000030300001, 1000008000001, 140000000000041, 300000020000003, 10000003030000001, 10000000500000001, 1000000400040000001, 1000000008000000001, 100000000303000000001
Offset: 1
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
-
Table[d = 0; i = 1;
While[ x = IntegerDigits[Prime[i]];
x != Reverse[x] || Count[x, d] != n , i++];
FromDigits[x], {n, 1, 5}] (* Robert Price, Mar 25 2019 *)
A083974
Smallest palindromic prime containing exactly n 3's.
Original entry on oeis.org
3, 313, 13331, 33533, 1333331, 3331333, 323333323, 13333633331, 31333333313, 1333335333331, 3233333333323, 133333353333331, 332333333333233, 333333313333333, 33233333333333233, 1333333336333333331, 3333333313133333333, 133333333383333333331
Offset: 1
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
-
Table[d = 3; i = 1;
While[ x = IntegerDigits[Prime[i]];
x != Reverse[x] || Count[x, d] != n , i++];
FromDigits[x], {n, 1, 6}] (* Robert Price, Mar 25 2019 *)
A083975
Smallest palindromic prime containing exactly n 4's.
Original entry on oeis.org
11411, 14341, 1464641, 1447441, 1444441, 144404441, 14244444241, 34444344443, 74444444447, 1444447444441, 3444444444443, 144444454444441, 14144444444444141, 34444444044444443, 1414444444444444141, 1444444447444444441, 104444444444444444401
Offset: 1
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
-
Table[d = 4; i = 1;
While[ x = IntegerDigits[Prime[i]];
x != Reverse[x] || Count[x, d] != n , i++];
FromDigits[x], {n, 1, 6}] (* Robert Price, Mar 25 2019 *)
Showing 1-9 of 9 results.