

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



