%I #18 Jun 14 2023 17:27:13
%S 1,1,1,1,4,7,13,25,67,157,316,1195,2635,9910,21796,33268,108541,
%T 264685,566431,1384927,2251855,10267813,23278831,68031385,119376340,
%U 223452859,339327088,1399568407,3282220573,12169858759,23849465446,130434244321,294426858097
%N a(n) = a(n-1) + R(a(n-2)) + R(a(n-3)) + R(a(n-4)) where a(1) = a(2) = a(3) = a(4) = 1 and R(n) (A004086) is the reverse of n.
%t a[1]=a[2]=a[3]=a[4]=1; R[n_]:=FromDigits[Reverse[IntegerDigits[n]]]; a[n_]:=a[n-1]+R[a[n-2]]+R[a[n-3]]+R[a[n-4]]; Array[a,32] (* _Stefano Spezia_, Jun 14 2023 *)
%Y Cf. A000288, A004086.
%K easy,base,nonn
%O 1,5
%A _Felice Russo_, Sep 11 2002
%E Corrected and extended by _Michel ten Voorde_ Jun 13 2003
%E More terms from _Joshua Zucker_, May 08 2006
%E Definition adapted to offset by _Georg Fischer_, Jun 18 2021