OFFSET
1,1
COMMENTS
SanD-d primes exist only for d = 14 + 18*k, k = -1/2, 0, 1, 2, 3, ...
This is the sequence for k = 2. See cross-references for other k and related sequences, in particular the main entry A307479 with further references.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
sand:= (n, d) -> isprime(n) and isprime(n+d) and convert(convert(n*(n+d), base, 10), `+`)=d:
select(sand, [seq(i, i=5..20000, 6)], 50); # Robert Israel, Apr 10 2019
PROG
(PARI) print_A307473(N, d=50)=forprime(p=2, , isprime(p+d)&&sumdigits(p*(p+d))==d&&!print1(p, ", ")&&!N--&&break)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Apr 09 2019
STATUS
approved