OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..20000
EXAMPLE
15 is a member 15 = 3*5 and 51 = 3*17 both have the prime signature p*q, p and q are primes.
MAPLE
s:= n-> sort(map(i-> i[2], ifactors(n)[2])):
a:= proc(n) option remember; local k; for k from 1+a(n-1) while
s(k)<>s((p-> parse(cat(seq(p[-i], i=1..length(p)))))(""||k)) do od; k
end: a(0):=0:
seq(a(n), n=1..80); # Alois P. Heinz, Mar 09 2018
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jul 06 2003
EXTENSIONS
Corrected and extended by Ray Chandler, Aug 08 2003
STATUS
approved