OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
Albert Frank, International Contest Of Logical Sequences, 2002 - 2003. Item 5.
Albert Frank, Solutions of International Contest Of Logical Sequences, 2002 - 2003.
EXAMPLE
a(1) = 3*2 = 6; a(2) = 1*3 = 3; a(3) = 4*5 = 20; ...
MATHEMATICA
Module[{nn=60, pd}, pd=RealDigits[Pi, 10, nn][[1]]; Table[Prime[n]*pd[[n]], {n, nn}]] (* Harvey P. Dale, Sep 25 2014 *)
PROG
(Magma)
pi:=Pi(RealField(130));
A000796:= Reverse(Intseq(Floor(10^110*pi))); // Bruno Berselli's code
[A000796[n]*NthPrime(n): n in [1..100]]; // G. C. Greubel, Jul 18 2023
(SageMath)
x=numerical_approx(pi, digits=130)
b=[ZZ(i) for i in x.str(skip_zeroes=True) if i.isdigit()]
[nth_prime(n)*b[n-1] for n in range(1, 101)] # G. C. Greubel, Jul 18 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Herman Jamke (hermanjamke(AT)fastmail.fm), Oct 01 2006
STATUS
approved