OFFSET
1,2
COMMENTS
Leading digit is ((n-1)*n+1) mod 10, zero allowed and therefore one more than the least significant digit in A002378(n-1). - R. J. Mathar, May 19 2006
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
MAPLE
a:= n-> parse(cat(map(x-> irem(x, 10), (t-> [$t+1..t+n])(n*(n-1)))[])):
seq(a(n), n=1..20); # Alois P. Heinz, Feb 13 2021
MATHEMATICA
Table[FromDigits[Last[Partition[PadRight[{}, n^2, {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}], n]]], {n, 20}] (* Harvey P. Dale, Dec 13 2022 *)
PROG
(PARI) A078193(n)= { local(a, f) ; a= (n*(n-1)+1) %10 ; f=a ; for(i=1, n-1, a=Str(Str(a) Str((f+i)%10)) ; a=eval(a) ; ) ; return(a) ; } { for(n=1, 20, print1(A078193(n), ", ") ; ) ; } \\ R. J. Mathar, May 19 2006
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 21 2002
EXTENSIONS
More terms from R. J. Mathar, May 19 2006
STATUS
approved