The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A072845 {1, 3, 7, 9} -> Mod[ {1*{1, 3, 7, 9}, 3*{1, 3, 7, 9}, 7*{1, 3, 7, 9}, 9*{1, 3, 7, 9}}, 10} 3
 1, 3, 7, 9, 1, 3, 7, 9, 3, 9, 1, 7, 7, 1, 9, 3, 9, 7, 3, 1, 1, 3, 7, 9, 3, 9, 1, 7, 7, 1, 9, 3, 9, 7, 3, 1, 3, 9, 1, 7, 9, 7, 3, 1, 1, 3, 7, 9, 7, 1, 9, 3, 7, 1, 9, 3, 1, 3, 7, 9, 9, 7, 3, 1, 3, 9, 1, 7, 9, 7, 3, 1, 7, 1, 9, 3, 3, 9, 1, 7, 1, 3, 7, 9, 1, 3, 7, 9, 3, 9, 1, 7, 7, 1, 9, 3, 9, 7, 3, 1, 3, 9, 1, 7, 9 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS MATHEMATICA ar={1, 3, 7, 9}; f[x_]=Mod[ar*x, 10]; br=Flatten[ NestList[f, ar, 3]] PROG (PARI) lista(nn) = {my(m = [1, 3, 7, 9], v = m); for (i=1, nn, my(w = []); for (j=1, 4, for (k=1, #v, w = concat(w, m[j]*v[k] % 10); ); ); v = w; ); w; } lista(3) \\ Michel Marcus, Jul 01 2019 CROSSREFS Cf. A001148 (1,3,9,7 repeated), A131712 (1,3,7,9 repeated). Sequence in context: A336045 A090458 A131712 * A197481 A197682 A021729 Adjacent sequences:  A072842 A072843 A072844 * A072846 A072847 A072848 KEYWORD nonn,uned,less AUTHOR Roger L. Bagula, Jul 24 2002 EXTENSIONS Edited by Robert G. Wilson v, Jul 27 2002 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 20 11:43 EDT 2021. Contains 345164 sequences. (Running on oeis4.)