A068188 Tetradic primes (primes in A006072).
11, 101, 181, 18181, 1008001, 1180811, 1880881, 1881881, 100111001, 100888001, 108101801, 110111011, 111010111, 111181111, 118818811, 180101081, 181111181, 181888181, 188010881, 188888881, 10008180001, 10081818001
Offset: 1
Links
- Hans Havermann, Table of n, a(n) for n = 1..36500
- Eric Weisstein's World of Mathematics, Tetradic Number
Programs
-
Mathematica
TetrPrmsUpTo10powerK[k_]:= Select[FromDigits/@ Tuples[{0,1,8}, k], PrimeQ[#] && IntegerDigits[#] == Reverse[IntegerDigits[#]] &]; TetrPrmsUpTo10powerK[13] (* Mikk Heidemaa, May 20 2017 *)
Extensions
Edited by Jud McCranie, Jun 02 2003
Offset corrected by Arkadiusz Wesolowski, Oct 17 2011
Comments