OFFSET
1,1
EXAMPLE
a(1)=6-1=5, a(2)=22-6=16.
MAPLE
test := proc(n) local d; d := convert(n, base, 10); return ListTools[Reverse](d)=d and numtheory[mobius](n)=1; end; s := []; for n from 1 to 11000 do if test(n) then s := [op(s), n]; end; od; a := [op(2..-1, s)-op(1..-2, s)];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jani Melik, Oct 13 2002
EXTENSIONS
Edited by Dean Hickerson, Oct 21 2002
STATUS
approved