A182811 Cyclops-Lucas numbers.
64079, 1860498, 4870847, 688846502588399
Offset: 1
Examples
a(1) = 64079 is in the sequence because 64079 is a Lucas number and it is also a cyclops number.
Links
- G. L. Honaker, Jr. and Chris K. Caldwell, Prime Curios! 688846502588399
Programs
-
Mathematica
(* First run the program given for A134808 *) Select[LucasL[Range[10^3]], cyclopsQ] (* Alonso del Arte, Dec 20 2010 *) Select[LucasL[Range[500]],OddQ[IntegerLength[#]]&&DigitCount[#,10,0]==1&&IntegerDigits[#][[(IntegerLength[#]+1)/2]]==0&] (* Harvey P. Dale, Jul 01 2017 *)
Comments