OFFSET
1,1
COMMENTS
The terms greater than 10^18 are obtained assuming that nextprime(n) < n+(log n)^2, which is known to hold at least for 4 < n < 10^18.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..33 (terms < 10^36)
Carlos Rivera, Puzzle 786
EXAMPLE
The number 43 is in the sequence because the two previous primes are 37 and 41 and 3741 is divisible by 43.
MATHEMATICA
Select[Range[4, 10^6], Divisible[ FromDigits[ Join@@ IntegerDigits@ NextPrime[#, {-2, -1}]], #]&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, May 23 2015
STATUS
approved