OFFSET
0,2
COMMENTS
Enters the cycle of length 54 given in A119031 at a(7) = 1. - M. F. Hasler, Mar 15 2022
REFERENCES
J. Roberts, Lure of the Integers, Math. Assoc. America, 1992, p. 15.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
Nick Hobson, Python program for this sequence
Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
FORMULA
a(n + 54) = a(n) for n >= 7.
MAPLE
rev:=proc(n) local nn, nnn: nn:=convert(n, base, 10): add(nn[nops(nn)+1-j]*10^(j-1), j=1..nops(nn)) end: a[0]:=0: for n from 1 to 70 do a[n]:=rev(a[n-1]+4) od: seq(a[n], n=0..70); # Emeric Deutsch, Mar 07 2007
MATHEMATICA
NestList[FromDigits[Reverse[IntegerDigits[#+4]]]&, 0, 70] (* Harvey P. Dale, Jan 20 2014 *)
PROG
(PARI) A003608=vector(66, i, a=if(i>1, fromdigits(Vecrev(digits(a+4))))) \\ M. F. Hasler, Mar 15 2022
(Python)
def A003608(N=66, a=0, d=4): # optional args: # terms, initial value, increment
for _ in range(N): yield a; a=int(str(a+d)[::-1])
list(A003608()) # M. F. Hasler, Mar 15 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Corrected by Nick Hobson, Feb 21 2007
More terms from Emeric Deutsch, Mar 07 2007
Edited by M. F. Hasler, Mar 15 2022
STATUS
approved