OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Join[{1}, Table[FromDigits[#, 4]&/@(Join[{1}, #, {1}]&/@Select[Tuples[ Range[ 0, 3], n], #==Reverse[#]&]), {n, 0, 5}]//Flatten]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved