OFFSET
1,1
COMMENTS
LINKS
Harry J. Smith, Table of n, a(n) for n=1,...,1000
EXAMPLE
MATHEMATICA
Flatten[Table[Prime[n], {n, 8}, {Prime[n]}]] (* Alonso del Arte, Sep 08 2011 based on Robert G. Wilson v's program for A002024 *)
Table[PadRight[{}, p, p], {p, Prime[Range[8]]}]//Flatten (* Harvey P. Dale, Mar 13 2023 *)
PROG
(PARI) { n=0; p=1; for (m=1, 10^9, p=nextprime(p+1); for (i=1, p, write("b063905.txt", n++, " ", p); if (n==1000, break)); if (n==1000, break) ) } \\ Harry J. Smith, Sep 02 2009
(Haskell)
a063905 n = a063905_list !! (n-1)
a063905_list =
concat $ zipWith ($) (map replicate a000040_list) a000040_list
-- Reinhard Zumkeller, Mar 18 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Aug 30 2001
STATUS
approved