OFFSET
1,1
COMMENTS
From Robert Israel, Apr 23 2019: (Start)
All terms are divisible by 15.
If x is a term and x < 4^k, then x*(4^k+1) is a term. In particular the sequence is infinite. (End)
LINKS
Robert Israel, Table of n, a(n) for n = 1..985
MAPLE
rev4:= proc(n) local L, i;
L:= convert(n, base, 4);
add(L[-i]*4^(i-1), i=1..nops(L))
end proc:
Res:= NULL:
for d from 2 to 15 do
d1:= ceil(d/2); d2:= d-d1;
for a from 4^(d1-1) to 4^d1/3 do
b:= rev4(a)/3 mod 4^d2;
x:= 4^d2*a+b;
if rev4(x) = 3*x then Res:= Res, x; fi
od od:
Res; # Robert Israel, Apr 23 2019
MATHEMATICA
Select[Range[84*10^6], 3#==FromDigits[Reverse[IntegerDigits[#, 4]], 4]&] (* Harvey P. Dale, Mar 03 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Mar 14 2013
EXTENSIONS
More terms from Alois P. Heinz, Mar 14 2013
STATUS
approved