OFFSET
1,1
LINKS
A. Frank & P. Jacqueroux, International Contest, 2001. Item 30 = Item 21 - Item 24.
FORMULA
MATHEMATICA
Table[Prime[n](Prime[n+1]+1)-(n^3+Total[IntegerDigits[n^3]]), {n, 50}] (* Harvey P. Dale, Jul 03 2021 *)
PROG
(PARI) for(n=1, 50, sda=eval(Vec(Str(n^3))); print1(prime(n)*(prime(n+1)+1)-(n^3+sum(i=1, length(sda), sda[i])), ", "))
CROSSREFS
KEYWORD
sign,base
AUTHOR
Herman Jamke (hermanjamke(AT)fastmail.fm), Sep 30 2006
STATUS
approved