|
|
A138131
|
|
Palindromic cyclops numbers.
|
|
10
|
|
|
0, 101, 202, 303, 404, 505, 606, 707, 808, 909, 11011, 12021, 13031, 14041, 15051, 16061, 17071, 18081, 19091, 21012, 22022, 23032, 24042, 25052, 26062, 27072, 28082, 29092, 31013, 32023, 33033, 34043, 35053, 36063, 37073, 38083
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
101 is a member because 101 is a palindromic number A002113 and also a cyclops number A134808.
|
|
MAPLE
|
f:= proc(n, d) local L, m, k;
L:= convert(9^d+n, base, 9);
add((1+L[d+1-i])*(10^(i-1)+10^(2*d+1-i)), i=1..d)
end proc:
seq(seq(f(n, d), n=0..9^d-1), d=0..2); # Robert Israel, Feb 18 2018
|
|
MATHEMATICA
|
Join[{0}, Flatten[Table[Select[Range[10^(2n), 10^(2n+1)-1], PalindromeQ[ #] && DigitCount[ #, 10, 0]==1&&IntegerDigits[#][[(IntegerLength[#]+1)/2]]==0&], {n, 2}]]] (* Harvey P. Dale, Dec 03 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|