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

 

Logo


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

Table of n, a(n) for n=1..105.

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.

License Agreements, Terms of Use, Privacy Policy. .

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