OFFSET
1,1
COMMENTS
Most of the pairs of successive primes also have the same set of digits. Those with different sets of digits are in A109183; the first relative numbers k are 3795, 3995, 10234, 17125, 18134, 19322, 20979.
EXAMPLE
prime(293)=1913, prime(294)=1931; both have the same sum of digits squared: 1^2 + 9^2 + 1^2 + 3^2 = 1^2 + 9^2 + 3^2 + 1^2 = 92.
MATHEMATICA
SequencePosition[Table[Total[IntegerDigits[Prime[n]]^2], {n, 10000}], {x_, x_}][[All, 1]] (* Harvey P. Dale, Jul 21 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Jun 21 2005
STATUS
approved